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Abstract 


This report describes recent improvements in the Global Reference 
Atmospheric Model (NASA-TMX -64871 and 64872), originally developeti as a 
global scale (all latitudes and longitudes) model from surface to orbital 
altitudes. The basic model includes monthly mean values of pressure, den- 
sity, temperature, and geostrophic winds, as well as quasi -biennial and 
random perturbations. The newer version reported here incorporates a re- 
vised two scale random perturbation model using perturbation magnitudes 
which are adjusted to conform to constraints imposed by the perfect gas 
law and the hydrostatic condition. The two scale perturbation model pro- 
duces appropriately correlated (horizontally and vertically) small scale 
and large scale perturbations. These stochastically simulated perturba- 
tions are representative of the magnitudes and wavelengths of perturba- 
tions produced by tides and planetary scale waves (large scale) and turbu- 
lence and gravity waves (small scale). Other new features of the model are: 
1) a second order geostrophic wind relation for use at low latitudes, and 
which does not "blow up" at low latitudes as the ordinary geostrophic 
relation does, 2) revised quasi-biennial amplitudes and phases and revised 
stationary perturbations, based on data through 1972. The new model is 
better than the original version, especially in producing more realistic 
simulations of vertical profiles of atmospheric parameters. 
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1 . INTRODUCTION 


In response to needs for empirical model atmospheres of wider scope and 
application Georgia Tech recently developed, under NASA sponsorship, a/GlobaT'^ 

/ y 

Reference Atmosphere Model (GRAM) with latitude, longitude, and montnly/'^ari- 
ations over a height range from 0 to 700 km ( Justus, et al . , 1974/a, b, 1975, 
1976). 

1 .1 Description of the Basic Model 

The Georgia Tech Global Reference Atmospheric Model ^GRAM), is an amalga- 
mation of two previously existing empirical atmospheric mpoels for the low 
(< 25 km) and high (> 90 km) atmosphere, with a newly developed latitude-longi- 
tude dependent model for the middle atmosphere. The h/gh atmospheric region 
above 115 km is simulated entirely by the Jacchia (1970) model. The Jacchia 
program sections are in separate subroutines so that later Jacchia models 
(J acchia , 1971) or other thermospheric-exospheric models could easily be adapted 
and substituted into the program if required for special applications. The 
atmospheric region between 25 km and 115 km is simulated by a newly developed 
latitude-longitude dependent empirical model modification of the latitude de- 
pendent empirical model developed by Groves (1971), which is described more 
fully in this report. Between 90 km and 115 km a smooth transition between the 
modified Groves values and the Jacchia values is accomplished by a fairing tech- 
nique, Below 25 km the atmospheric parameters are computed by a 4-D worliirwide 
atmospheric model developed for NASA by Allied Research Associates ( Spiegler 
and Fowler , 1972), Between 25 and 30 km an interpolation scheme is used between 
the 4-u results and the modified Groves values. Figure 1.1 presents a schematic 
summary of the Global Reference Atmospheric Model program atmospheric regions 
and how they are modeled. 


The modifications to Groves model to produce longitude as well as lati- 
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tude variations in the monthly mean were accomplished in two steps. For the 
original version, upper air summary map data for monthly means at the 10 mb 
level for 1966 and 1967 ( NOAA, 1969b) and the 2 and 0.4 mb levels for 1966, , 

1967, and 1968 (NOM* 1969a, 1970, 1971) were read and converted to values fojr 
the 30, 40, and 52 km, levels. These upper air map values at the 2 and 0.4^b 
levels were extended around the entire northern hemisphere by subjective ^extra- 
polation. For the Mod 2 version, additional 10 mb data for 1964 and 1^5 ( NOAA , 
1967a) and 2 and 0.4 mb data for 1964 and 1965 (NOAA, 1967 b, c) an^M972 ( NOAA , 
1975) were also read and added to the earlier data. The 1972 2 am 0.4 mb data 
extended into the eastern hemisphere, so no extrapolation of itywas necessary. 
Next the 30, 40, and 52 km latitude-longitude dependent value^were extrapolated 
to 90 km by an extrapolation scheme developed by Graves , (lw3). All of the map 
generated and extrapolated data were converted to percent deviation from the 
longitudinal mean and these are applied as deviations (called stationary pertur- 
bations) to the Groves model values, which are taken a^' the latitude dependent 
longitudinal means. / 

The seasonal variations in the middle atmosphere (25-115 km) are assumed 
to be the same in northern and southern hemispheres' with a six months phase lag. 
That is, the southern hemisphere July is the same as the northern hemisphere 
January. In the 4-D region (^ 25 km)separate global coverage data values are 
available for each of the twelve months. A set of annual reference period data 
are also available for the 4-D and modified Groves regions. If the annual ref- 
erence period is selected, the Jacchia section sets the exospheric temperature 
to 1000° K to represent annual mean conditions. 

The monthly mean geostrophic winds are computed from horizontal pressure 
gradients, estimated by finite differences. Near the equator, a newly devised 
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Figure 1.1 Schematic summary of the atmospheric regions in the Global 
Reference Atmospheric Model (GRAM) program and the simu- 
lation methods used for mean monthly values in each region 
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second order geostrophic wind, which remains finite as f (the Coriolis para- 
meter) approaches zero, is used instead of the usual geostrophic relation 
(which approaches infinite values as f approaches zero). Mean vertical winds, 
of the order of a cm/sec, are also evaluated from the slopes of isentropic 
surfaces and the horizontal advective winds. Wind shear in the monthly mean 
horizontal wind is estimated from horizontal temperature gradients. These 
parameters serve as a consistency check on the pressure and temperature fields 
of the empirical model. 

In addition to the monthly mean values of pressure, density and tempe- 
rature, two types of perturbations are evaluated: quasi-biennial (QBO) and 

random. The QBO oscillations in pressure, density, temperature, and winds, 
empirically determined to be represented by an 870 day period sinusoidal vari- 
ation, have amplitudes and phases which vary with height and latitude. The 
QBO amplitudes are primarily significant at low altitudes (: 20 - 40 km) at 
equatorial latitudes and at higher altitudes (50 - 60 km) at higher latitudes. 
For the Mod 2 version, the QBO amplitudes and phases were newly evaluated 
from a larger data set, which included MRN data through 1972. 

For realistic simulation of actual atmospheric parameter values as they 
would likely be at any given time, random perturbations are also computed and 
applied as perturbations to the monthly mean values. The random perturbations 
are evaluated by a simulation technique which uses empirical values of vari- 
ation magnitudes and scales to generate random perturbations which have real- 
istic space and time correlations. 

Originally the perturbation model was characterized by a single vertical 
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scale and horizontal scale, and no attempt was made to insure compliance with 
constraints on the perturbation magnitudes, required by the perfect gas law 
( Buell , 1970) and hydrostatic equation ( Buell , 1972b). In an earlier report 
( Justus and Woodrum , 1975), the revisions were described which improved the 
data base of the perturbation magnitudes, and adjusted the magnitude profiles 
to insure compliance with the Buell constraints. For the Mod 2 version re- 
ported here, the use of a two scale perturbation model has been implemented. 
This model simulates separately the perturbations of small scale (e.g. turbu- 
lence and gravity waves) and large scale (e.g. tides and planetary waves) 
effects. These perturbations are still treated stochastically, however - no 
deterministic model of these physical processes is used. 

In short, the major revisions in the Mod 2 version reported here are: 

0 revised stationary perturbations (now based on 1964 - 1972 

upper air charts), 

0 revised quasi -biennial amplitudes and phases (now based on 

1961 - 1972 MRN data), 

• new second order geostrophic wind equations for use at low 

latitudes, and mean vertical winds based on slope of 
isentropic surfaces, and 

0 a two-scale random perturbation model to better simulate the 

effects of both small scale and large scale perturbations 
from monthly mean conditions. 

The following sections give a technical description of the Global Refe- 
rence A^tmospheric Model - Mod 2 with emphasis on the new additions, and new 
users manual descriptions of the program aspects of the revised model. 


5 


2. TECHNICAL DESCRIPTION OF THE MODEL 


2.1 The Jacchia Section 

The Jacchia (1970) model for the thermosphere and exosphere was origi- 
nally implemented to compute atmospheric density at satellite altitudes. The 
Jacchia model accounts for temperature and density variations due to solar and 
geomagnetic activity, diurnal and semi-annual variations, and seasonal and 
latitudinal variations. The Jacchia model assumes a uniformly mixed composition 
from sea level to 105 km, with diffusive equilibrium among the constituents 
(nitrogen, oxygen, argon, helium, and hydrogen) above 105 km. Fixed boundary 
values for temperature and density are assumed at 90 km. Alterations, described 
in Justus et al (1974 a), were made to allow atmospheric pressure to be computed 
from the density and temperature. Geostrophio winds (first order only) are 
evaluated in the Jacchia section by computing horizontal pressure gradients with 
successive evaluations of the Jacchia model at different latitudes and longitudes 

2.2 The 4-D Section (below 25 km) 

The 4-D atmospheric model, developed by Allied Research Associates 
( Spieqler and Fowler , 1972) was designed to extract from data tapes and interpo- 
late on latitude and longitude, mean monthly and daily variance profiles of 
pressure, density, temperature, at 1 km intervals from the surface to a height 
of 25 km for any location on the globe. The data tapes contain empirically 
determined atmospheric parameter profiles at a large array of locations. The 
northern hemisphere grid array is equivalent to the NMC grid network. Grids 
spaced at 5 degree intervals of latitude and longitude are used in the equator- 
ial and southern hemisphere regions. 

Technical changes made in the 4-D program were: a modified latitude- 

longitude interpolation method, previously described in Justus et al (1974 a). 


an adjustment routine to modify the variance to comply with the Buell constraints 



and a check routine to determine vertical and horizontal consistency of the 
4-D data. 

The method of application of the 4-D model in the PROFILE program is as 
follows: at the first time that atmospheric parameters at a location below 

30 km are required, a set of atmospheric profiles of monthly mean and daily 
variances of pressure, density, and temperature are generated at a 16 point 
grid of locations spaced at 5 degree latitude and longitude intervals (a 
slightly different grid is used near the poles). This grid of profiles, cover- 
ing 15° X 15° of latitude-longitude is then stored in the computer and all 
further atmospheric parameter values in the 0-25 km range are found by interpo- 
lation between locations within this grid. If the trajectory goes outside this 
grid while the height remains below 25 km, the program attempts an estimate of 
the atmospheric parameters by an additional call on the routine which sets up 
the 4-D data grid. 

The location of the grid points to be evaluated is determined dynamically 
based on the position and direction of travel along the trajectory when the 4-D 
grid is first required by a procedure described in Justus et al (1974 a). The 
4-D data tapes normally contain data for the surface to 25 km in 1 km steps. 

At locations where the surface is at more than 1 km above sea level the surface 
value will be followed by one or more zero records, and the first non-zero 
record above the surface value will be at the lowest integer km higher than 
the surface. For example, if the surface is at 700 m then there will be data at 

surface, 1 km, 2 km, etc., but if the surface is at 1.3 km the data will con- 
tain the surface, one zero record, 2 km, 3 km etc. In the Mod-2 version an 

interpolation routine (based on the hydrostatic relation and constant lapse 
rate altitude segments) is used to fill in data between sea level and the first 
non-zero data above the surface. Interpolation is also used to fill in any 

missing data immediately below the 25 km height. The basic interpolation 
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equations were described in Justus et aT (1974 a). 


2.3 The Modified Groves Section (25 - 9Q km) 

The starting point for the middle atmosphere (25 - 110 km) is the lati- 
tude dependent model of Groves (1971). This empirical model combines many obser- 

^ ^ 

vations from a wide range of longitudes. Observational results over approxi- 

k 

tnately six years were used to compute longitudinal averages, which are presented 

. < 

versus latitude and month. Latitude coverage of the Groves model is from the 

t 

^ equator to 70° or in some cases 80°. Southern hemisphere data were utilized in 

developing the Groves model as northern hemisphere data with a 6-month change of ' 
date. Tabulations of the Groves model are at intervals of 5 km in height, 10° 

0- in latitude (northern hemisphere), and one month in time (southern hemisphere 

► 

displaced six months). If the Groves values of an atmospheric parameter y were 
^ known up to 80° latitude, then the 90° latitude Groves value was computed from 

ygo = (4ygo - yyo^/^ 

If Groves values of the atmospheric parameter y were known only up to 70° lati- \ 
tude, then the 80° and 90° latitude Groves values was computed from 

^90 " ^^^70 “ 

^80 ^^^70 “ ^^60^^^ 

The Groves model data has only height and latitude variation for each 
month. For longitude variation, the Groves model data is modified by longitude, 
latitude, and height dependent stationary perturbations. These stationary 
perturbations are derived, by methods described more fully in Justus et al (1974 a) 

’ 

from 10, 2, and 0.4' mb map data and extrapolation up to 90 km. The stationary 
perturbations were evaluated at longitudes 10°, 40°, 70°, ... 340° for latitudes 
10°, 30°, 50°, 70°, and 90°. 
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Originally, only the 1966 and 1967 10 mb monthly mean values ( NOAA , 1969 b) 
were read and averaged. The 2 mb and 0.4 mb weekly mean maps for 1966, 1967, 
and 1968 ( NOAA , 1969 a), 1970, 1971) were read for the first week of each month, 
and averaged over the three years. For the Mod 2 version, additional 10 mb data 
for 1964 and 1965 ( NOAA , 1967 a) and 2 and 0.4 mb data for 1964 and 1965 ( NOAA , 
1967 b, c) and 1972 ( NOAA , 1975) were also read and added to the earlier data. 

The 1972 2 and 0.4 mb data extended into the eastern hemisphere, so no extrapo- 
lation into this hemisphere was required, as was done with the earlier data. 

After the upper air chart data were averaged, the next step was to con- 
vert the readings to constant heights of 30, 40, and 52 km. This was done by 
assuming that the temperature followed a constant lapse rate between each chart 
level and the nearest interpolation altitude with lapse rates based on the Groves 
model. 

In order to introduce longitude variability at heights above 52 km, the 
extrapolation technique of Graves et al ♦ (1973) was used to project the 52 km 
interpolated chart data up to 90 km. The 5 extrapolation height levels are 60, 

68, 76, 84, and 90 km. 

After the chart data were interpolated to 30, 40, and 52 km and extra- 
polated to 60, 68, 76, 84, and 90 km, the stationary perturbations (relative 
deviations to be added to the Groves values) were calculated. At each altitude 
and latitude the stationary perturbation s for a parameter y (which can repre- 
sent pressure, density, or temperature) was computed by the relation 

= (y - <^)/<y> (2.4) 

where <y> represents the longitude averaged value of y (i.e. averaged around a 
circle of fixed latitude). Note that the definition of s makes it be identi- 
cally zero at the pole. The stationary perturbation s for parameter y is 
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added to the Groves value G to produce the longitude variable modified Groves 
value G' , according to the relation 


G'y = GyO . Sy) (2.5) 

The modified Groves values, determined by relation (2.5) are used as the monthly 
mean values for the altitude range 30 to 90 km. 


2.4 Interpolation and Fairing 

The 4-D data are available on the data tapes at one km height intervals 
and at 5° x 5° latitude-longitude grids in the southern and equatorial areas and 
at the NMC grid locations in the northern hemisphere. NMC grid profiles are 
always converted (by interpolation) to 5° x 5° grids before interpolation to the 
trajectory locations. The general interpolation requirements for the 4-D section 
are height interpolation over 1 km and latitude- longitude interpolation over a 
5° X 5° square grid. 

The Groves data are tabulated at 5 km height intervals and 10^ latitude 
intervals. Interpolation is required between these tabulated locations. The 
stationary perturbations are evaluated at 20° latitude and 30° longitude inter- 
vals and at 30, 40, 52, 60, 68, 76, 84, and 90 km altitudes. Interpolation be- 
tween these tabulated locations is also required. For values between 25 km and 
30 km interpolation between the 4-D data and Groves -pi us- stationary-perturbation 
data are required. The interpolations are always carried out in the program by 
doing the latitude (Grvoves) or latitude-longitude (4-D) interpolation first, and 
then doing the height interpolation. 

The Jacchia model can be evaluated at any height above 90 km and at any 
latitude and longitude, so no interpolation is required. However, between 90 
and 115 km there is overlap between the Groves data and the Jacchia model, so a 
fairing procedure is used to effect a smooth transition between the Groves data 
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at 90 km and the Jacchia values at 115 km. 

The method used to interpolate pressure, density, and temperature over a 
height interval between heights z-j and Zg is to assume linear variation of the 
temperature and of the logarithm of the density. The latitude interpolation for 
the Groves data is done by assuming linear variation between the latitudes (|)^ 
and (^2 (which are at = 10° apart). Two dimensional latitude-longitude 
interpolation between a square or rectangular array of positions at latitudes 
(j)^ and (|)2 and west longitudes x-j and X2» is done by the relation 

F(<{' » x) = Fq + (F^ - (*^2 " *^o^^ ^*^3 " *^1 “ ^2 

where 6 ^ is (cj) - <j>i )/(<() 2 and 6X is (x - Xi)/(X 2 - x^). 

To accomplish smooth transition between the Groves values at 90 km and 

t 

the Jacchia values at 115 km a fairing technique is used. This fairing techni- 
que was described in Justus et a1 (1974 a). The fairing is done only at the 
altitudes 95, 100, 105, 110, i.e. heights for which there are Groves values. 
Linear interpolation is then used to fill in the remaining heights, as discussed 
in the height interpolation section above. 

A new feature of the Mod-2 version is that interpolation of the random 
perturbation magnitudes is done linearly on the variance (a ) rather than lin- 
early on the magnitude (a). This is because the Buell adjustment equations (see 
later sections) are nearly linear in the variances. Thus once variances have 
been Buell adjusted, their adjustment would tend to be preserved by linear 
interpolation on variances, not magnitudes. ^ 

2.5 Geostrophic Winds 

The eastward (i.e. blowing toward the east) wind component u and north- 
ward component v can be evaluated from the geostrophic wind equations 


u 


-d/pf) sp/3y 


( 2 . 6 ) 


V 


(1/pf) 8p/ax 


(2.7) 


where p is the density, f is the Coriolis parameter (2 u sin c|> ) and ap/ax and 
ap/ay are the eastward and northward components of the horizontal pressure grad- 
ient. For evaluation in the model, the pressure gradient terms must be approxi- 
mated by finite differences. 

Geos trophic wind values are also computed in the Jacchia height range by 

evaluating the Jacchia model at 5 degree increments of latitude and longitude 
and taking finite differences of the resulting pressure. This technique prob- 
ably over extends the capabilities of the Jacchia model, however, and the com- 
puted winds in this height range should not be considered precise. 

2.6 Thermal Wind Shear 

The wind shear components au/az and av/az are evaluated by the thermal 
wind equations 


3U/3Z = -(g/fT) 3T/3y 

(2.8) 

3V/3Z = (g/fT) 3T/3X 

(2.i) 


which is the usual form, leaving off a correction term in aT/az, which is nor- 
mally small. The horizontal temperature gradient terms are estimated by finite 
differences in a similar manner to the pressure gradient components in equations 
(2.6) and (2.7). 

Thermal wind shears are also computed in the Jacchia height range in a 
manner similar to that described for the wind calculations. Again, however, for 
the reasons already discussed, these values should not be taken as precise. 

2.7 Setond Order Geostrophic Winds 

Since the ordinary geostrophic winds are inversely proportional to the 
Coriolis parameter f (which goes to zero at the equator), these relations give 
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unrealistically large winds at low latitudes. To overcome this problem, sec- 
ond order geos trophic relations 

u = (g/D)[a 3P/9X + (b - f) 9p/ay] (2.10) 

V = (g/D)[-a 9p/9z + (c + f) 9p/9x] (2.11) 

are used at low latitudes, where D is given by 

D = ad - (b - f)(c + f) (2.12) 

and the coefficients a, b, c, and d (related to second order pressure deriva- 
tives) are evaluated by the method described in Appendix A. 

2.8 Mean Vertical Winds 

The Mod 2 version also evaluates mean vertical winds from the slope 
of isentropic surfaces. On such surfaces, the entropy function ip is con- 
stant, where \p is 

'P = Cp T + gz + (u^ + v^)/2 = const. (2.13) 

Therefore, on isentropic surfaces 

dip/dt + U9i|;/9X + V9;|;/9y + Vld\p/dZ = 0 (2.14) 

and, if d\p/dt is assumed zero, the vertical wind w can be solved for as 

W = -[u9i^/9X + V9iJj/9y]/(9ii;/9z) (2.15) 

By differentiation of (2.13), with the assumption that u and v are the geo- 
strophic winds u^ and v^, and that 9u/9z and 9v/?z are given by the thermal 
wind relations, (2.15) becomes 


13 


W = -Cp [Ug(3T/3x) + Vg(3T/ay)]/ 

{g + Cp(3T/3z) + ,(g/fr)[Vg(3T/3x) - Up{3T/ay)]} (2.16) 

Mean vertical winds evaluated by (2J6) are generally less than a cm/sec, 
and hence are realistic values for the large scale mean vertical winds affect- 
ing mean meridional circulation. 

2*9 The Quasi-Biennial Perturbations 

In the Mod-0 Global Reference Atmospheric Model, MRN data from 1964- 
1969 were used to evaluate quasi-biennial amplitudes and phases in the 
height range 25-65 km. The quasi -biennial period which produce minimum 
variance, when simultaneously evaluating the annual, semi-annual, and quasi - 
biennial variation, was found to be 870 days. For the Mod 2 version, the 
harmonic analysis was done the same way with MRN data for 1970-1972 added 
to the original data base. Again the 870 day period was found to produce 
minimum variance for the QBO winds, while a 900 day period did slightly 
better for the thermodynamic variables. In order to retain a single period, 
the original 870 day period was chosen as still the preferable value over- 
all. The revised quasi-biennial magnitudes and phases are listed in the 
"SCIDAT" data tape listing at the end of this report (Appendix B). 

2.10 The Random Perturbation Model (Two Scale) 

The original single scale perturbation model in the Global Reference 
Atmosphere Model ( Justus et al , 1974 a) was evaluated by the following met- 
hod: first the density perturbation P 2 ' at the new location was computed 

from p-j ' the density perturbation at the previous location by the relation 

(pg'/p'g) = A(p^'/PT)+Br^ (2.17) 
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V- 


A: 


A 


'r 


where and pg are the known mean densities at the previous and new positions, 
A and B are determined from the required conditions, and r-| is a random num- 
ber selected from a Saussian distribution with mean zero and unit standard de- 
viation. The required conditions to be used in determining A and B are 


‘'P 2 ' = R cjpi a^2 (2.18) 

<p«'^> = a ^ (2.19) 

c p2 

where and known standard deviations in density at the prev- 

ious and new location, and R is the known autocorrelation in density pertur- 
bations between the previous and new locations. Next (with analogous nota- 
tion as in (2.17) through (2.19), the new temperature perturbation was com- 
puted by 

(T 27 T 2 ) = Cd^'/V + D(p27p2) + (2.20) 


In addition to the autocorrelation R (assumed the same for T' and p' in the 
original one-scale model) the cross correlation (Rpj )2 was also maintained 
(through the coefficient D in equation (2.20))- The correlation (R^j ) 2 was 
determined from the known standard deviations and means by the Buell (1970) 
relation 




2[(a )2 /p2] [(oj)2/T23 


(2.21) 


Once the density and temperature perturbations were evaluated, the pressure 
perturbation was determined via 

(P27P2) = (p 2 '/p 2 ) + (T27T2) ( 2 . 22 ) 

which is a first order perturbation equation from the perfect gas law. In 


15 


/v 


4^. 




Y 


the original single scale perturbation model, wind perturbation components u' 

/ 

v' were assumed to be uncorrelated with each other and with the thermodynamic 
variables, and hence were computed by relations analagous to equation (2.17). 

In the original one-scale model, only the total perturbations are con- 
sidered (e.g. p -■ p + p') while in the new two scale model the perturbations 
are assumed to be made up of a large scale and small scale component (e.g. 
p = P + p^^ + Pg). To first order in the perturbations the state of the mean 
atmosphere is described by 

p = p R T (2.23) 


and the mean plus large scale perturbations by 

(P + Pl) = (p + Pl) + V (2.24) 

and the actual atmospheric parameters p, p, and T by 

p = p R T (2.25) 


Division of equations (2.24) and (2.25) by p on the left and by p R T on the 
right yields, to first order in the perturbations 


II 

IQ. 

_i 

O. 

(pl/o) + (\/T) 

(2.26) 

Pj/P = 

(Pj/?) + (Tj/T) 

(2.27) 


These results mean that the small scale and large scale perturbations each 
separately must obey the Buell triangle relationships for their magnitudes. 
Thus, analogous to equation (2.21), the correlations R j for large scale 

pl'l 

perturbations and R^ j for small scale perturbations are given in terms of 
their respective magnitudes by 
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(2.28) 






2(a^ /p)(a. n) 

\ \ 

{o /p)^ - (a /p)^ - (oy /T)^ 

Ps Ps 


2(P„ /p)(a. /f) 
Ps 's 


(2.29) 


The large and small scale components are assumed to be independent so corre- 
lations such as R T » R T etc. are taken to be zero. 

"s^L fL^s 

The density perturbations p. and p_ at the new position are thus com- 

puted from the known perturbations p. and p at the previous position by 

1 ^1 

relations analogous to equation (2,17) 




(2.30) 


(p5 /P) 
^2 




/pl) + 


B r 

S Si 


(2.31) 


where and B^ can each be determined (as before) from the conditions 


“L,’ ' \ (o) Vj °PL, 


(2.32) 


2> = a I 
2 P^2 


<Pr- Pc > “ Rc (p) cr c Pc 

s^ s^ s P^2 P^^i 


(2.33) 

(2.34) 



(2.35) 


where the density autocorrelations Rj^ (p) and R^ (p) are determined from the 
known horizontal and vertical scale of the large scale and small scale pertur 
bations (see the following section on scales). Similarly, the temperature 
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perturbations are computed (analogous to equation (2.20) by 
where again D|^ and are determined by the required cross correlations R j 

s 

and R T 3t the new position, as computed from equations (2.28) and (2.29). 

^l'l 

Once the density and temperature perturbations are computed, the pressure per- 
turbations are evaluated from equations (2.26) and (2.27). 

A further addition to the new model has been brought about by empiric- 
ally evaluated correlations R,. , R,. „ , R,, , and R., . The new method of 

W ‘^sPs 

evaluating the velocity perturbation components is somewhat analogous to that 
employed for the temperature component. The equations used are 


(2.36) 

(2.37) 


and 




Uc = GePc H.r,, 

S2 s s-j s $2 s Ug 


(2.38) 

(2.39) 


^2 " ^ ‘^ 1-^2 ^ 


''s2 = ^s''s^ ^ ‘^s^2 ^ *^5^3 


(2.40) 

(2.41) 


where the coefficients 6j^ and 6^ are determined from the newly evaluated cor- 
relations R and R., , and the coefficients J, and are evaluated from 

UlPl UjPs I- s 

the correlations R,, ,, and R,, „ . 

Vl ^s'^s 

For evaluation of the coefficients C, D, and E in (2.36) and (2.37), 
and the coefficients F through K in (2.38) through (2.41), these equations are 
successively multiplyed through by the perturbation quantities on the right 
hand side (see Appendix B in Justus et al , (1974 a)). The relations thus 
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I 


established for the coefficients A through K (with analogous equations for 
both large scale and small scale A - K^) are 


A 

B 

C 


R ( p ) Pq / Pq 
P g P] 


a [1 - r 2 ( p )]’/2 
”2 


[R(T) o, /a, ] {[1 - R. „ Rt „ ]/ 
'2 'l ' 2^2 ^ 1^1 


[1 - R^(T) ^ ]} 

' T’l 


0 

E 


[R(T) oj oj - Ca| ]/(A R, ^ Oj ) 
'Z 'l 'l '1^1 h 


r 2 p 2 2 n 2 2 

La-r - C a-r -Da 
Tg T, P2 


2 C D R(T) R, 0T ] 


1/2 


F = 


'T,p, T, P2- 

Vs ’ V2 


Cl - r '( p ) 


G 

H 


(R(u) a.. - F P.. MR(p) Ru^p^ Pp^] 


U 2 u ^ 


r 2 c 2 2 p 2 2 

Lp„ - F p„ - G a 


P 2 


2 F G R (p)R. ^ a„ ] 


1/2 


u-jPi p 2 Uj 


I = 


( V “ vi ) V2 ^ IP ,]/ 


n - ( P ) 


J = [R(v) a„ - I a„ ]/[R(p) R„ ^ ] 

K 


V2 - - v ^ 


'li 

ViPi P 2 


r 2 ,2 2 ,2 2 

Lp„ - I 0., - J a 

"2 ''i "2 


2 1 J R (p) 


1/2 
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(2.42) 

(2.43) 


(2.44) 

(2.45) 


(2.46) 


(2.47) 

(2.48) 


(2.49) 


(2.50) 

(2.51) 


(2.52) 


where the autocorrelations of density R (p), temperature R(T) and wind R(u) 

(R(u) and R(v) are assumed equal), are determined from the horizontal and 

vertical scales and ^ by the relations 

p p T "T ^u ”u 


R(p) 

= exp { - [(Ax^ + Ay^)/L^ + Az^/L^ 

(2.53) 


p p 


R(T) 

- exp { - [(ix^ + 

(2.54) 

R(u) 

= exp { - [(ax^ + Ay^)/L^ + az^/L^ 1 ^^^] 

(2.55) 


u u 


The following two sections describe how the total perturbation magni- 
tudes (Buell adjusted, and obtained as described in Justus and Woodrum , 1975) 
are subdivided into large and small scale magnitudes, and how the horizontal 
and vertical scales for equation (2.53) through (2.55) were evaluated by 
vertical structure function analysis. 

2.11 Daily Difference Analysis for the Two Scale Perturbation Magnitudes 

Consider the density p, and the zonal and meridional wind components u 
and V to be made up of the following components: mean (subscript o) , seasonal 

variation (subscript s), planetary wave component (subscript p), tidal compo- 
nent (subscript t), gravity wave,- component (subscript g) , and error and/or 
small scale turbulence (subscript e). Thus, the parameters p, u, and v can be 
wri tten 


+ 0 +D +Pj.+ D + P 

^s ^p ^t ^g ^e 

(2.56) 

+ u^ + + u+ + u„ + u„ 

s p t g e 

(2.57) 

+ v^. + v„ + v„ 
s p t g e 

(2.58) 
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By daily difference analysis ( Justus and Woodfum , 1973) the mean square differ- 

2 2 

ences over one 24 hour day {< Ap-| > = <[p(t + 1 day) - p(t)] >, etc.) are given 


* 2 o 2 . « 2 

<Ap-| > = 2<Pg > + 2<pg > 


(2.59) 


and similar v'elations for u and v and daily differences over n = 7 to 15 days 

2 2 
(<Ap^ > = <[p(t + n days) - p(t)] >, etc.) are given by 

<Ap^^> = 2<Pp^ + (2.60) 

and similar relations for u and v. The monthly means p, u, and v, are: 


P = Po + Ps 


(2.61) 


0 s 


V = v + v 
0 s 


(2.63) 


and so mean square differences of deviations from the monthly means 

/ 2. _ "l2. u.. 


(<ApQ > = <[p - p] >3 etc. are given by 


2 2 2 2 2 
^t q e 


(2.64) 


and similar relations for u and v. Combination of the above equations allows 
the following solutions for the desired component magnitudes in terms of the 
measurable rms differences; 


+ <pg^> = 1/2 <Ap-|^> 

(2.65) 

1/2 <Ap/> - 1/2 <Ap^^> 

(2.66) 

= <APq^> - 1/2 <Ap^^> 

(2.67) 
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All of the quantities on the right of (2„65) through (2.67) are directly mea- 
surable from data profiles. 

For the two-scale perturbation model, the small scale component would be 
represented by the gravity wave component 

yf = <pg^ <pg^ = 1/2 <Ap-|^> (2.68) 

p 

where only the true turbulence contribution of <pg > is to be taken (the error 
^ component can be estimated from time series analysis ( Justus and Woodrum , 1973) 

and the turbulence component can be estimated from turbulence studies). The 
large scale component is represented by the sum of the planetary wave and tidal 
components 

= <Pp^ + - 1/2 <Ap.j^> (2.69) 

A similar analysis can be performed to determine the u - v cross corre- 
lations and the u - p cross correlations. The analysis is done in terms of 
mean product daily differences (<Au.| Av-|> = <[u(t + 1 day) - u(t)] [v(t + 1 day) 
- v(t)]>, etc). Application of the same daily difference techniques yields the 
following: 



<AU-| 

AV 

f = 

2<u 

g 


(2.70) 


<AU^ 

Ap 

f = 

2<u 

g 

Pg> + 2<Ug Pg> 

(2.71) 

<iUn 

AV > 
Tr 

= 

2<u 

P 

V > + 

p 

V > 

g 9 

+ 2<Ug Vg> 

(2.72) 

<AU„ 

Ap„> 


2<u 

P 

p > + 

2<u p > 

g '^g 

+ 2<Uj pg> 

(2.73) 

<aUq 


= 

<Up V 

> + 
p 

'“t V * 

V > + <U^ V > 

g g e e 

(2.74) 

<iU^ 

APo> 

= 

<Up p 

> + 
p 


<U p > + <U p > 
g ^g e ^e 

(2.75) 
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Rearrangement to solve for the component cross products yieldi': 


r 

<u 

. g 

V > 

g 

+ <U^ V > = 

e e 

1/2 <AU-J Av-|> 

(2.76) 


<u 

g 


e ^e 

1/2 <AU^ Z\p-j> 

(2.77) 


V > 

P P 

= 

1/2 <AU„ AV„> 
/ n n 

- 1/2 <AU^ AV-|> 

(2.78) 


<^p Pp> 

;= 

1/2 <AU^ Ap„ 
n ^n 

- 1/2 <AU^ Ap-j> 

(2.79) 

A 


''t" 

= <iUgAV(> 

- 1/2 <AU^ AV^> 

(2.80) 


<u^ pe 

'= <iUg Apg> 

-^ ,1/2 <AU^ Ap|^> 

(2.81) 


Again all the terms on the right are directly measurable from the MRN and upper 
level profiles. The correlations ('^yp)^ and (rj^^)g for the small scale pertur- 
bations would be given by 


^*^Up^S 


(•■uv’s 


p > + <U- p > 

g '^g e '^e 

"Xtot 

<Uq y> + <Ug Vg> 

- ‘(aX (o: 


(2.82) 


(2.83) 


L'S ' V"S 


where the major contribution to <Ug pg> and <u^ v^> will come from the turbu- 
lence (the error component assumed to be uncorrelated). The correlations 
^*"up^L ^’^uv^L large scale perturbations would be given by 


<u p > + <u+ p+> 

(r ) = P, P. , ,.p. 

up^L 




uva 


<Up Vp> <Ut Vt" 


(2.84) 


(2.85) 


Application of the above daily difference analysis to MRIi data for 1964- 
197^ has yielded magnitudes of the large and small scale components, and values 
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for the density - velocity correlations. Since large scale magnitudes and 
small scale magnitudes must add as the sum of the squares to give the total 
perturbation magnitude oj (because large and small scale perturbations are 
considered independent), then 



and the values of aj^ and can be described in terms of the previously eval- 
uated total perturbations magnitudes ( Justus and Woodrum , 1975) and the frac- 
tion f^ of the total variance contained in the large scale variance, i.e. 

f|_ = (2-87) 

Thus, 0 |_ and are given in terms of oy and f^^ by 

0^^ = 0j (2.88) 

Total magnitudes for pressure, density and temperature perturbations are listed 
as the code "R“ data on the "SCIDAT" data tape (Appendix B), the total magni- 
tudes for the wind components are the code "RW" data, and the fractional var- 
iances in the large scale are the code "P" and "PW" data. 

The wind - density correlations, determined from daily difference analy- 
sis relations (2.82) through (2.85) are given in the SCIDAT data tape code "CS" 
and "CL" data. 

2.12 Vertical Structure Function Analysis for Perturbation Vertical Scales 

Vertical structure functions may be used to determine vertical scales of 
the gravity waves, planetary waves, and tides. The vertical structure function 
of the one day differences (for example, in p) is 
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(Z + ?) '“ (z)] 


= 2 <[pg (Z + ?) - Pg (z)]^> + 4 <Pg^ 


(2.90) 


= 2D (c) + 4<Pg > 

9 

and the vertical structure function of the 7-15 day difference is 


(c) = <[Ap^ (z + c) - Ap^ {z)Y^ 

r 2<[Pp (Z +,C) - Pp (Z)]^ y 

j + 2<[p (z + c) - P (z)3^ + 4<P 

,13 . y ■ . y 


(2.91) 


= 2 D (c) + 2D^ (?) + 4<p/> 

Pp Pg e 

Therefore the structure function for the planetary waves D is formed from 

Pp 


(?) = CD,^ (?) - (?)]/2 


Ap 


The vertical structure function for Ap^ is 

0 


Ap-j 


(2.92) 




' ^*^^P0 " ^PQ ^ 


= <[p (z + ?) + p(z + ?) - p(z) + p(z)]^> 


- <[pp (z + ?) « pp(z)3^^ +?) - p+(z)]^ 

■■'V 

+ <CPg (Z + ?) - Pg(z)]^ + 2<Pg^ 


(2,93) 


= D (?) + Dp (?) + D (?)+2<PgS 

t^P My 


Thus the structure function of the tides D (?) can be computed from 

Pt 

D (?) = D^^i?) - 1/2 (?) 


Pt 


Ap 




(2.94) 
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Vertical structure function analysts was performed on 1964-1972 MRN 
data and the vertical structure functions of large scale and small scale com- 
ponents were determined. Vertical scales were determined from subjective 

Intersection of the vertical structure function curves and 2a values (the 

2 

small scale vertical structure function should level off at ZaJ" and the 

s 

2 

large scale at 2a|_ ). Since the MRN data cover 25 - 65 km, the vertical 
scales thus determined are taken as applying to an average height of 45 km. 

A set of vertical scales, thus determined, for the large scale and small scale 
wind perturbations Is shown in Figure 2.T. Considerable variation with lati- 
tude is seen for the large scale, hence a latitude varying function was 
selected to fit to all of the MRN determined vertical scales. The latitude 
function is of the general form I 

Ly = a + b (90 - (2.95) 

where Is the vertical scale, a and b are the empirical coefficients re- 
quired to fit the observed data, and (p is the latitude in degrees. These 
functions, thus fit through the data points, for the large scale and small 
scale components are shown as the solid and dashed curves In Figure 2.1. 

Earlier ( Justus and WOodrum , 1975), the Buell depth of pressure scale 
D, given by the relation 

D = Hp(Op/p)/[(<7^/f)(l - RpT-)’'’^] (2.96) 

where Is the pressure scale height, was suggested as the vertical scale to 
use in the single scale perturbation model. The current vertical structure 
function analysis has shown that this cannot be applied as the vertical scale 
(either large or small scale) for all of the parameters, because the vertical 
scales for temperature tend to be smaller than for density or pressure, for 
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Figure 2.1 - Structure Function Vertical Scales for 
Large and Small Scale Wind Perturbations 





example. Nevertheless, the Buell depth of pressure scale vartation with height 
as evaluated in Figure 4.3 of Justus and Wbodrum (1975) has been taken as des- 
cribing the form of the vertical variation of the vertical scale with height 
from the surface to near 60 km. The variations of vertical scale with height, 
previously presented as Table 8 in Justus and Woodrum , (1972) were taken to 

* 

represent height variation of the vertical scales up to about 150 km altitude. 
From these two sources of height variation of scale, a height function f(z) 

4 has been empirically evaluated which adjusts the 45 km vertical scale, deter- 

mined from (2.95), to any height z. This function, normalized to one at 45 km, 
is given by 

f(z) = 0.22 + 0.00258 z^‘® (2.97) 

^ and the vertical scale at any height z, is thus given, by combination of 

(2.95) and (2.97) by 

(z) = [a + b (90 - (j.)^][0.22 + 0.00258z^*^] (2.98) 

Figure 2.2 shows the data, normalized to one at 45 km, on which relation 
(2.97) was based. The solid dots are the relative height variation of the 
Buell depth of pressure scale up to 55 km (from Figure 4.3 of Justus and Wood- 
rum , 1975). The open circles are the relative height variations of gravity 
k wave wind scales, from Table 8 of Justus and Woodrum , (1972), and the triangles 

are the relative height variations of gravity wave pressure, density, and tem- 
" perature scales from Table 8 of the same source. The solid curve in Figure 

2.2 is a plot of equation (2.97). 

' 2.13 Horizontal Scales 

The previous horizontal scales used in the single scale perturbation 
model, varying linearly from 900 km at the surface to 1500 km at an altitude 
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of 100 km, have been retained as the horizontal scale of the large scale per- 
turbation components. Horizontar scales for the small scale component, ob- 
tained from a subjective fit of data presented in Table 8 of Justus arid Wood- 
rum (1972), are. given by 

= 20 + 0.0125 (2.99) 

This function goes from 20 km at the surface (z = 0) to 145 km at a height of 

100 km and adequately fits the observed gravity wave horizontal scale from 

!/ 

Table 8 of Justus and Woodrum (1972). | 

2.14 The Adjustment Technique for the Statistical Parameters 

There are certain constraints which are placed on the thermodynamic 
variation statistics as a result of the perfect gas law ( Buell , 1970) and the 
equation of hydrostatic equilibrium ( Buell , 1972). As Buell has shown, these 
relations can be conveniently expv^essed in terms of the coefficients of vari- 
ation (Vp = cfp/p, Vp = a^/p, Vj = Pj/f) and the correlation coefficients 
(rpj, r^y, i^pp)* The Buell equations for the perfect gas law constraint are: 


pT . = (Vp - v2)/(2VpV^) 

(2.100) 

pT = (Vp - - V?)/(2V^V,) 

(2.101) 

pp = (Vp ^ V2 - v2)/(2VpV^) 

(2.102) 


which express the law of cosines for a triangle whose sides are Vp, V^, and Vj 
and whose interior angles are arc cosines of the correlation coefficients. 

The Buell equation for the hydrostatic equilibrium constraint is 

8V,^/3z = - V ^ (2.103) 

P P p p T 

where Hp is the pressure scale height Hp = RT/g. Buell (1972b) described a 
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method for numerically tntenrating equation (2.1Q3) to obtain adjusted values 
of Vp, Vp, and Vj which satisfy the constraint relationship from a set of 
original coefficients of variation which do not satisfy this constraint. 

For the Mod 2 program, total perturbation magnitudes for heights above 
25 km were obtained from MRN "SUMS" tape data and from rocket grenade and 
other high altitude data sources ( Theon et al , 1972), and were Buell adjusted, 
as described in Justus and Moodrum , (1975). A new subroutine ADJUST was 
added to the program to do the Buell adjustment for the data profiles obtained 
from the 4-D data tapes (0 - 25 km). 


3.' SAMPLE RESULTS 

Figure 3.1 shows a sample vertical profile of mean temperature (given 
as percent deviation from the 1962 U.S. Standard Atmosphere) produced by the 
Mod 2 Global Reference Atmospheric Model. This profile is for Kennedy Space 
Flight Center in January. The dashed curve in Figure 3.1 shows, for compari- 
son, the range reference atmosphere temperature profile for Kennedy Space 
Flight Center. Figures 3.2 through 3.4 show similar comparisons between 
Global Reference Atmospheric Model profiles and Kennedy range reference 
atmosphere profiles for density, zonal (east-west) wind and meridional (north- 
south) wind components. These figures show good agreement between the model 
and the range reference atmosphere values, with only minor changes from the 
mean atmospheric values produced by the original Mod 0 version (c.f. Figures 
10.9 - 10.11 in Justus et al , 1974a). 

Figure 3.5 shows an example vertical profile of mean values and mean 
plus perturbation values from the original single scale perturbation model. 
This figure shows zonal winds at Kennedy in January, compared to an ob- 
served MRN profile measured on January 19, 1972. The single scale pertur- 
bation model is seen to put too much perturbation variance into small vertical 
scales. This problem is overcome with the new two scale perturbation model, 
as shown in Figure 3.6 for January zonal wind at Kennedy. In this fig- 
ure a significant portion of the perturbation variance is in relatively large 
vertical scales and a smaller amount of the variance is in the small vertical 
wave lengths. Correspondence of the model generated mean plus perturbation 
with the sample MRN observed data is considerably better with the two scale 
perturbation model. 

Further examples of two scale perturbation model results are shown in 


32 


Height, km 



Figure 3.1 - 6RAM2 generated monthly mean temperature for Kennedy SFC \ 
in January, compared to the Kennedy January Range Reference Atmosphere. \ 
Percent deviations are with respect to the 1962 U.S. Standard f 
Atmosphere. I 
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Figure 3.2 - As in Figure 3.1 for Density 











Figure 3.5 - Single scale model zonal wind monthly mean and mean plus 
perturbation for Kennedy SFC in January compared to an observed MRN 
profile of January 19, 1972. 
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Figure 3.6 - Two-Scale model zonal wind monthly mean and mean plus 
perturbation for Kennedy SFC in January compared to an observed MRN 
profile of January 19, 1972. 
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Figure 3.8 - As in Figure 3.6 for Temperature. Percent Deviations are 
with respect to the U. S. 1962 Standard Atmosphere. 
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Figures 3.7 through 3.9, for meridional wind, temperature, and density, re- 
spectively. Good correspondence is seen in all of these between the relative 
amounts of perturbation variance in large and small scales, and the vertical 
structure of the measured (January 19, 1972) profiles. 



4. USERS MANUAL 


The Global Reference Atmospheric Model (GRAM) program is designed to 
produce atmospheric parameter values either along a linear path (to be called 
a profile) with automatically stepped constant height, latitude, and longi- 
tude increments, or along any set of connected positions (to be called a tra- 
jectory) which must be input individually into the program. 

There are three general types of input to the GRAM program: (1) A set 

of three cards, called the initial data, which contain the values of the prog- 
ram options, the initial position, the profile increments, and other infor- 
mation required before the calculations are begun, (2) A data tape (SCIDAT) 
containing parameter values for the Groves (1971) model, the stationary per- 
turbations (deviations from the Groves model, to produce longitude varying 
monthly means), and random and quasi-biennial perturbation parameter values, 
and (3) The data tapes with one data file for each month, containing pro- 
files of monthly mean pressure, density, temperature, and their variances 
from the surface to 25 km, for the entire globe. If it is desired to compute 
atmospheric parameters along a trajectory instead of a linear profile, then 
a fourth type of data - the trajectory times and positions - must be input. 

In terms of program function, the major elements of the GRAM program 
are the main segment (GRAM), the subroutine SCIMOD, which is a driver for all 
of the atmospheric evaluation subroutines, and SETUP, a subroutine used to 
read the SCIDAT data tape, and load the necessary starting conditions for 
execution. Figure 4.1 shows a simplified schematic of the main segment and 
illustrates the function of the SETUP and SCIMOD subroutines. 

Output of the GRAM program consists of monthly mean pressure, density, 
temperature, wind and wind shear, total (mean plus perturbation) values of 
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^READ INPUT PARAMETERS 
AND INITIAL POSITION 
(STOP IF EOF) 
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SAME AS IN 
PREVIOUS 
SCYCLETv/^ 


NSAME = 1 
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/numbe^ 
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\ OECTORY / 
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Figure 4.1; Simplified flow chart of the GRAM program. 
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pressure, density, temperature, winds, perturbation values, and magnitudes. 

Complete discussion of the input, output, and program operation char- 
acteristics for the GRAM program are given in the following sections of the 
users manual. 

4.1 The 4-D Data Tapes (0-25 km) 

The description contained in this section was paraphrased from the 

4- D program users manual ( Fowler and Willard , 1972). For more information 
on the 4-D section of GRAM, consult that document and Spiegler and Fowler 
(1972). 

The world-wide meteorological data set developed for the 4-D model 
by Allied Research Associates is stored on three 7-track, 800 bpi binary 
tapes labelled WW1A-WW3A. Each tape contains four files of data where one 
file represents one month; WWIA contains months 1-4, WW2A contains months 

5- 8, and WW3A contains months 9-12. A 13th month containing the annual ref- 
erence period has been added as a fourth tape. 

Within each file are 3490 records representing the values at indi- 
vidual grid points. These points are grouped into three grids: 288 points 
on the northern hemisphere equatorial (EQN) grid; 1977 points on the north- 
ern hemisphere (National Meteorological Center) grid; and 1225 points on 
the southern hemisphere (SH) grid. On the NMC grid, the data were computed 
at NMC points and stored in the order given by the NMC grid table shown in 
the SCIDAT data tape listing in Appendix B. On the other two grids, the 
data was given at 5° latitude-longitude intersections westward from the 
Greenwich Meridian to 5° east. The EQN grid covers the latitudes from 0° to 
15° north with points occurring in the following order: 1-4 = Lon. 0, Lat. 

0, 5, 10, 15; 5-8 = Ion. 5W, Lat. 0, 5, 10, 15; ... 285-288 - Lon. 5° E. 

Lat. 0, 5, 10, 15. The SH grid contains all data from 5° south to the south 


pole as follows: 1 = South Pole, 2-18 = Lon, 0, Lat. -5 to -85; 19-35 = 

Lon. 5° W, Lat. -5 to -85; ... 1209 - 1225 = Lon. 5° E, Lat. -5 to -85. It 
should be noted that the south pole is given only once, as the first point 
of the SH data set. 

Each record consists of 106 36-bit words where the first 104 words 
contain the computed data for a point and the last two are identifiers. 

All data values are multiplied by 100 and converted to integer; they are 
then packed with two 18-bit values to a word. The data is arranged by level 
for each parameter; thus, the first 13 words contain the pressure means from 
the surface to 25 km and the next 13 words contain the pressure variances 
for the same levels. This pattern continues for the 26 levels of tempera- 
ture means and variances, moisture means and variances, and density means 
and variances. 

Word 105 contains the latitude and longitude of the point in question. 
There are integer values that have been multiplied by 10; each occupies 18 
bits of the word. The latitude is always positive (since the southern 
hemisphere is identified by grid), and the longitude is always west. 

The last word contains three 12 bit integer values. The left-most 
group of bits is the homogeneous moisture region in which the point lies, 
the center group is the point number, and the right-inost group of bits is 
the month. It should be noted that the points are numbered within the grid 
that contains them, and not by their location on tape. Thus the point num- 
bers run from 1-288, 1-1977, and 1-1225, not from 1-3490. Figure 4.2 shows 
the tape structure for one month. 

4.2 The SCI DAT Data Tape 

This section describes in detail the data contained on the SCIDAT 
data tape. A listing of this tape, and a synopsis of the data contained on 
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This box represents 26 integer values 

P - 

2 

Pressure (mb x 10 ) 

2 

of pressure in millibars x 10 . Each 

Pv - 

2 2 

Pressure Variance (mb x 10 ) 

value is packed sequentially as^ an 18 

T - 

Temperature (°K x 10^) 

bit byte, starting with the surface 

\ - 

Temperature Variance (°K^ x 10^) 

and ending with the 25 km value 

M - 

Moisture (g/m^ x 10^) 

Variances are the square of the stan- 

M, - 

2 6 2 

Moisture Variance (g /m x 10 ) 

o 2. 

dard deviations. 

D - 

Density (g/m x 10 ) 

2 6 2 


‘'v - 

Density Variance (g/m x 10 ) 

RM denotes end of record mark. 

L - 

Word 105 Containing Latitude 
and Longitude 

EOF Denotes end of file mark. 

N - 

Word 106 Containing Homogeneous 
Region Number, MSF Point Number, 
and Month Number 


Figure 4.2: Record Structure on the 4-D Data Tapes 

















it are given in Appendix B. 


NMC Grid Data . This data set gives the 4-D northern hemisphere point 
number and the dual index for the corresponding NMC location. The NMC grid 
locations form an octagonal array, centered on the North Pole. The points 
are at square grid locations on the polar projection used for the NmC grid. 

A conversion between the latitude and longitude (treated as polar coordinates 
on the flat NMC grid plane) and the NMC grid indices (treated as Cartesian 
coordinates on the projection plane) is accomplished by a polar to Cartesian 
coordinate transformation, via equations programmed into the 4-D model. The 
NMC grid data on the SCIDAT tape merely establishes the equivalence between 
the sequential 4-D NMC point number and the two-dimensional x-y NMC grid 
point location. The NMC grid data constitute the first file on the SCIDAT 
tape. An end of file marker appears on the tape at the end of the NMC grid 
data. The NMC grid data file contains 396 NTRAN readable records (36 bit 
binary words) with 15 integers (one per word) in each record. 

Groves Data . The Groves (1971) data for monthly mean pressure, den- 
sity, and temperature are tabulated at 10 degree latitude intervals from 0 
to 90° for each month. The yearly average Groves data is coded as month 13. 
The southern hemisphere data is the same as the northern hemisphere data dis- 
placed by 6 months. Annual mean (month 13) data is the same for both north- 
ern and southern hemispheres. 

The format of the Groves data is the same as in Groves (1971) origi- 
nal report, except that a prefix code P, D, or T has been added at the front 
of each record. Each record contains the code, the month, the height in km 
and the 0, 10, 20, ...,90° latitude values of the parameter expressed as a 
three digit integer, with a exponent common to all of the values on the rec- 
ord appearing at the end of the record. Thus a value of 276 with an expon- 


c 

ent at the end of the record of -6, would be the same as 276 x 10" = 

-4 2 

2.76 X 10 . Pressure data are in units of N/m , density values are in 

kg/m'^, and temperatures are in °K. The Groves data set contains 702 NTRAN 

readable (36 bit binary word) records with 14 integer values (one per word) 

in each record (including the code word P, D, or T). 

Stationary Perturbations . The stationary perturbations are latitude- 
longitude dependent relative perturbations to be applied to the Groves val- 
ues, considered to be the longitudinal mean value. Data for each of 12 
months and for the annual reference period (month 13) are given for the 
northern hemisphere latitudes. Southern hemisphere data are the same as the 
northern hemisphere values displaced by 6 months. 

Each record contains the code S, the month, the height in km, the 

west longitude, in degrees, and then 15 values of stationary perturbations 

in per mill (%/10). The first five of the values are for pressure pertur- 
bations at latitudes 10, 30, 50, 70, and 90. The next five values are for 
density, and the last five values are for temperature. The monthly mean val- 
ue y^ji for parameter y at any latitude and longitude can be computed from the 
Groves value G at the latitude and the stationary perturbation s (in per 
mill) at the latitude and longitude by the relation 

= Sy (1 + Sy/1000) . (4.1) 

Note that the stationary perturbation values at 90° latitude are always zero. 
However, there is a place for 90° values on the data tape, so that if a sys- 
tematic departure from Groves values is desired at the poles, a set of 
stationary perturbation data reflecting this condition could be developed 
and put on the tape. The stationary perturbations listed on the Mod-2 SCIDAT 
tape have been revised, as described in Section 2, by the addition of data 
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read from 1964, 1965, and 1972 upper air charts. 

The Groves data and stationary perturbation data constitute the sec- 
ond file on the SCI DAT tape. An end of file marker appears at the end of 
the stationary perturbation data. The stationary perturbation code S data 
consists of 1248 NTRAN readable (36 bit binary word) records, with 19 integer 
values (one per word) in each record (including the code word S). 

The Random Perturbation Data. Random perturbation magnitudes (stan- 
dard deviations) are latitude dependent only. Each code R record has the 
code, the month (1-13) and the height in km, followed by 15 values of random 
perturbation magnitude, five for pressure (in per mill, at latitudes 10, 30, 
50, 70, and 90), five for density, and five for temperature. These data give 
the relative standard deviations cfp/p, o^/p, and aj/T, for use in the random 
perturbation model. 

The code RW data are similar, except that only ten wind values appear 
in each record (after the code, month, and height); five for eastward wind 
magnitude (in m/s at latitudes 10, 30, 50, 70, and 90) and five for north- 
ward wind magnitude. 

The code R and RW total perturbation magnitudes have been revised by 
the incorporation of new data sources, as described in Justus and Woodrum , 
(1975). The code R data have also been subjected to Buell (1970, 1972) 
adjustment, also described in Justus and Woodrum (1975). 

The code R and RW data constitute the third file on the SCIDAT tape. 

An end-of-file mark appears on the tape at the end of the code RW data. The 
code R data consist of 260 NTRAN readable (36 bit binary word) records with 
18 integer words (one value per word) in each record (including the code 
word R). For the code RW data, there are 325 records with 13 36 bit binary 
integer words (one value per word) in each record (including the code word 
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RW). 


Large Scale Fraction Data . From daily difference analysis described 
in Section 2, the fraction of the total variance (o from code R and RW 
data) contained in the large scale perturbations has been determined as a 
fraction of height and latitude. Separate evaluations by month were also 
made, but were not found to be significantly different from the annual aver- 
ages. Therefore the SCIDAT tape contains only the annual average fraction 
(expressed as per mill) of total variance contained in the large scale. 

Large scale and small scale magnitudes and are computed from the 
fractional data fj^ (code P) in per mill, by the relations 

\ (4.2) 

-s " /I oj (4.3) 

where aj is the total perturbation magnitude (code R or code RW data). The 
code P data set contains 25 NTRAN readable (36 bit binary word) records, with 
18 words (one integer value per word) on each record (including the code word 

P)- 

Density- Velocity Correlations . Daily difference analysis described 

in Section 2 was also used to evaluate the cross correlations R,, and R,, 

up Vp 

for use in the velocity perturbation model (equations (2.38) - (2.41) and 
(2.44) - (2.50)). Both large scale and small scale values of the density- 
velocity correlations were evaluated, and are given on the SCIDAT data tape 
(codes CL and CS) in per mill (i.e. divide by 1000 to get correlations in 
the range -1 to +1). 

The code P large scale fraction data and the code CS and CL density- 
velocity correlation data constitute the fourth file on the SCIDAT tape. An 
end-of-file mark appears on the tape at the end of the code CL data. The 
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code CS and CL data consist of 50 NTRAN readable (36 bit binary word) records, 
with 13 integer values (one per word) in each record (including the code word 
either CS or CL). 

The Quasi-Biennial Oscillation (QBO) Data . The QBO data consists of 
height and latitude dependent amplitudes and phases for quasi -biennial vari- 
ations in pressure (QP), density (QD), temperature (QT), and eastward and 
northward wind components (QU and QV, respectively). The amplitude of the 
QBO thermodynamic parameters are in per mill (%/lC)). The amplitudes of the 
QBO wind components are in decimeters per second (0.1 m/s). The phases of 
all of the QBO parameters are measured in days after January 0, 1966 for the 
occurrence of the first maximum value. Since the period of the QBO varia- 
tions is taken to be 870 days, the phases could vary from 0 to 870. 

Each QBO data record contains the code, the height in km, the ampli- 
tude and phase for 10° latitude, the amplitude and phase for 30° latitude, 
etc. out to the amplitude and phase for 90° latitude. There are 80 NTRAN 
readable (36 bit binary word) records in the QBO data set. Each record con- 
tains 12 integer values (one per word), including the code word QP, QD, QT, 

QU, or QV. 

A final end of file mark appears at the end of the code QV data. 
Appendix B gives a brief summary of the data on the SCIDAT tape and a complete 
listing of all the values appearing in the tape records. 

4.3 The Initial Input Data 

The initial input data consists of two free field (no set format with 
commas after each number) cards containing initial position data, program 
options, and other information required to begin computation, plus an opt- 
ional third free field card to give initial random perturbation data if ran- 
dom perturbations are to be computed, plus an optional set of trajectory 


52 






position data cards (followed by a backup card), if trajectory positions 
w are to be read in rather than a linear profile generated automatically in 

the program. Appendix C gives a brief summary of the input characteristics, 
a summary of the data deck setup, and some sample input and output for the 
program. The following gives a more detailed description of each program 
input card. 

Input Card Miimber 1, The first input card, read in by the main program 
• segment PROFILE in free field format contains the following information. 

Designation R indicates real quantities, I denotes integer quantities. 

1. Initial Height (R) ; The initial height in km for the beginning 
point of the profile or trajectory. This can be any non-negative real num- 
ber. Atmospheric parameters are never evaluated at the first position, 
which is used only to establish the initial conditions. 

2. Initial Latitude (R): The latitude of the initial position in ' 

degrees, with southern latitudes negative. If the initial latitude, or any 
subsequent latitude is greater than 90° in absolute magnitude, then a trans- 
formation 

lat = (180° - |lati)(lat/llatl) (4.4) 

^ Ion = Ion + 180° (4.5) 


is made. 

3. Initial West Longitude (R): The west longitude of the initial 
position in degrees. East longitude can be put in as negative or converted 
to 0 - 360° west longitude. If negative (east) longitudes are input they 
are converted to the 0 - 360° scale before being used by the program. At 
any time during the run if a longitude gets outside the 0 - 360*^ n»nge it 
is put back into that range by adding or subtracting 360°, as necessary. 

4. F10.7 (R) ; The solar 10.7 cm radio noise flux in units of lO"^^ 




2 

watts/m (the normal units for this parameter) at the time for which the 
atmospheric values are to be computed. This factor is used only in the 
Jacchia section, so a value of zero can be used on input if the height never 
goes above 90 km. A value of 230 for both design steady state conditions 
and for maximum conditions may be used, or consult the Aerospace Environ- 
ment Division (AED) of Marshall Space Flight Center (MSFC) for monthly pre- 
dictions. 

5. Mean FI 0.7 (R); The 81 day mean solar 10.7 cm radio flux. This 
parameter is used in the Jacchia section to compute the nighttime minimum 
global exospheric temperature (equation (14) in Jacchia , 1970). Use zero 
if the height does not go above 90 km. A value of 230 may be used for both 
design steady state or maximum conditions, or coiisult the AED or MSFC for 
monthly predictions. 

AP (R) : The geomagnetic index a , used to compute a geomagnetic 

r 

correlation to the exospheric temperature, in equation (22) of Jacchia , 
(1970). Use zero If the height does not go above 90 km. A design steady 
state value of 20.3 and a maximum condition value of 400 may be used for 
a , or consult the AED at MSFC for monthly predictions. 

7-9. Date (I): The date, for the starting time of the trajectory 

or profile evaluation in month/day/two digit year form, as three integer in- 
put values. The day of the month and the year have no direct effect on the 
program calculations, except in the case of the quasi-biennial oscillation 
terms. For the annual reference period, use month 13. The quasi -biennial 
terms are automatically set to zero if month 13 is used. The month is used 
to establish which Groves data, stationary perturbation data, and random 
data (including large scale fractions and velocity-density correlations) to 
load from the SCI DAT data tape into the working arrays. The program will 
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work more efficiently if multiple trajectories or profiles are evaluated 
during one run operation and the months are the same. (This avoids repeated 
look-up of the Groves, stationary perturbation, and random data from the 
SCI DAT tape.) 

10-12. Greenwich Time (I): The Greenwich mean time for the start- 
ing position in hours, minutes, and seconds as three integer values. Only 
the Jacchi a section is directly affected by the time of day, so unless the 
height goes above 90 km, the starting time would serve merely as a reference 
parameter for the particular run being done. Greenwich time corresponding 
to a local time of 0900 hours should be used for design steady state Jacchi a 
section conditions, and for maximum conditions the local time should be 
taken as 1400 hours. 

13. Latitude Increment (R): If a linear profile is to be generated 

automatically this is the latitude increment (in degrees) between successive 
profile positions. The new latitude would be the old latitude plus the 
latitude increment. For a profile with decreasing latitude (going southward) 
the increment must be negative. Use zero if separate trajectory position 
input is to be read in. If a vertical profile (i.e. changing only height) 

is to be evaluated, then use zero latitude increment. 

14. West Longitude Increment (R) : If a linear profile is to be 

generated automatically this is the west longitude increment (in degrees) 
between successive profile positions. The new longitude will be the old 
longitude plus the longitude increment. For a profile progressing eastward 
use a negative increment. Use zero if separate trajectory position input is 
to be read in. If a vertical profile is to be evaluated, then use zero 
increment. 

15. Height Increment (R): The height decrease in km between sue- 
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cessive positions, for an automatically generated linear profile. The pro- 
files normally are generated downward (descending height). (New height = 
old height minus the height increment). If an upward generated profile is 
desired the height increment should be negative. Downward generated pro- 
files will be evaluated until the height is incremented to a negative value 
or until the maximum number of positions (item 16, 1st card) is exceeded. 

16 Maximum Number of Positions (I); The maximum number of profile 
positions to be generated automatically. This does not include the initial 
position, for which no atmospheric parameters are evaluated. Use zero if 
trajectory positions are to be read in. 

17. Time Increment (I): The time displacement (seconds) between 
successive automatically generated profile positions. This would normally 
be set to zero, but could be used as a counter to be printed out in the 
time position with the output. For trajectories the time for each position 
is read in with the position data (see trajectory input section below). 

The hours, minutes, and seconds parameters (read in as items 10-12, 1st 
card) are updated according to the new time generated by the time increment. 
However, only the elapsed time in seconds is printed out on the present out- 
put. 

18. Trajectory Option (I) : This option tells the program whether a 
trajectory or a linear profile is to be evaluated. A value of 0 means a 
linear profile is to be generated automatically from the parameters read on 
the first card. A value greater than zero means that trajectory position 
data must be read in to determine the positions at which atmospheric para- 
meters are to be evaluated. The unit from which the trajectory .data are to 
be read is specified by the (non-zero) trajectory option. Thus, if trajec- 
tory data are to be read in from cards, use a trajectory option of 5 (the 
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card input unit). 

19. Output Option (I) : This option tells the program whether or 
not to produce non-print output of the atmospheric parameters (see the out- 
put description section). Non-print (i.e. disk or cards) output is conven- 
ient to use as input to plotter programs. A value of 0 means no non-print 
output. A value greater than 0 means to output the data on the unit number 
equal to the output option value. 

20. Minimum Geos trophic Latitude (R): Below this latitude (in 
absolute magnitude) the second order geostrophic relations are used. Above 
this latitude, or above 90 km, only the usual geostrophic relations are 
used. 

With normal numbers of decimal places and no unnecessary blank 
spaces, the above 20 items should fit onto one card. However, if they 
occupy more than the 80 columns allowed on one card, they may be spread 
out onto two cards if the following rules of free field input are observed 
on the first of the two cards: (1) Do not put a comma after the last num- 

ber appearing on the first card. (2) If the last number on the first card 
is an integer, it should be right justified to column 80. For input on 
other computers, consult your operations manual for characteristics of free 
field input. 

Input Card Number 2 . The second input card is read in by the sub- 
routine SETUP and contains various unit numbers to be used and options con- 
trolling the random and quasi -biennial calculations. The unit numbers are 
the parameters used in read statements in the FORTRAN program to control 
which file is being read from. The unit numbers are required in the input 
in order to give maximum flexibility in choice of I/O devices for the pro- 
gram. All input items on card number 2 are integers. 
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1. Groves Input Unit: This is the unit number of the SCIDAT tape 
file. If the SCIDAT tape has been assigned by the UNIVAC control statements 

@ ASG, T SCIDAT, T. U1961 N 
@ USE 3. SCIDAT 

where U1961 is the reel number for tape SCIDAT. then the Groves input unit 
number should be 3 on this input card. The Groves and stationary pertur- 
bation data must be read from the SCIDAT tape. Later options on this card 
allow the NMC grid data, the random perturbation data, and the quasi-bien- 
nial data each to read from other files. 

2. Random Input Unit : This is the unit number for the random per- 

turbation standard deviations (and the large scale fraction data and den- 
sity-velocity cor»^elations) . If this unit number is the same as the Groves 
input unit number, then all of the random perturbation data are read from 
the SCIDAT data tape. Otherwise all of the random perturbation data are 
read from the file for whatever the unit number is set to. For card input, 
the unit number should be set to 5. The SCIDAT tape is read with NTRAN, 
but if alternate random data are read in from a different file, the file 
must be FORTRAN readable with format 

IX. Al, 12. 14, 3(1X, 514) 

for the random pressure, density, and temperature data (see Appendix B and 
Section 4.3 for which values must go in each record). For the random wind 
data the FORTRAN readable format for the alternate data is 

IX, A2, 12, 14. 2(1X, 514) 

If the random data input unit is different from the Groves input 
unit, then the code P and PW large scale fraction data and code CS and CL 
density- velocity correlation data must follow (after an end-of-file) the 
code RW data on the random input unit. The FORTRAN readable format for the 
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large scale fraction (code P) data is 

IX, Al, 12, 14, 3(1X, 514) 

The format for the code PW data is 

IX, A2, 12, 14, 2(1X, 514) 

The format for the CS and CL data is 

IX, A2, 12, 14, 2(1X, 515) 

See Appendix B and Section 4.3 for description of the values which must go 
in each of these records. 

All of the random perturbation data, random pressure, density, and 
temperature data, random wind data, large scale fraction data, and density- 
velocity correlation data must be read in from the same file, either all 
from SCIDAT, or all from the alternate FORTRAN readable file. 

3. QBO Input Unit; If the QBO data parameters are to be read in 
from the SCIDAT data tape, this unit number is set the same as the Groves 
input unit. If alternate QBO parameters are to be read in the QBO unit 
number can be any F0RTRA< readable file. Use Unit 5 for card input. The 
format for all of the alternate QBO input is 

IX, A2, 13, 5(14, 15) 

(See Appendix B and Section 4.3 for which data values must go into each 
record). All of the QBO pressure, density, temperature, and wind data must 
be read from the same file, either all from SCIDAT or all from the alter- 
nate QBO input file. 

4. 4-D Input Unit : This is the unit number for the 4-D data tape. 

Any available unit number can be used. If the 4-D tape WWIA, containing 
the January daca, has been assigned by the control statements 

@ ASG, T WWIA, T, U 2400 N 
& USE 4, WWIA 
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then the 4-D input unit number is 4. 


5. Random Option : This option tells the program whether or not to 
compute random perturbations. If the value is 1 random perturbations are 
computed. If the value is 2 then random perturbations are not computed. 

If any values other than 1 or 2 are input the run is terminated with a 
message "ERR(JR IN SETUP INPUT" and a dump of the parameters most recently 
read in. 

QBO Option: This option tells the program whether or not to 
compute QBO perturbations. If the value is 1 QBO perturbations are com- 
puted, For 2 no QBO perturbations are computed, and for any other values 
the "ERR0R IN SETUP INPUT" and dump of most recent parameters read in is 
given.. 

7. First Random Number : This number is required as a starting 

parameter for the random number generating subroutine RAND. Any odd posi- 
tive integer can be used. Use a value of 1 for a standard design appli- 
cation run. Provided all other input is the same, a given value for the 
starting random number will always produce the same random perturbation 
output. Therefore, to get a set of different perturbations along a given 
single trajectory, a set of different starting random numbers should be 
used. Note, however, that if any other parameters are changed (different 
spacing along the trajectory, different starting position, etc.) then the 
same starting random number will produce a different set of random pertur- 
bations. 

8. NMC Read Option : This option tells the program whether to read 
the NMC grid data from the SCIDAT data tape (value 0 for the option) or from 
an input card file (any non-zero value for the option). 

9. 4-D Scratch Unit: In order to save array space the 4-D profiles 
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required to interpolate to the 5° x 5° grid locations are read from the 
tapes to this scratch file rather than being put into arrays. The unit 
number for this scratch file can be any available unit. Normally the file 
is a temporary drum file, and, if so, does not (on the UNIVAC) have to be 
assigned (@ ASG) before execution of the program. 

10. NMC Grid Point Scratch Unit: Also in order to save computer 
storage, the NMC grid point array read in from the SCIDAT tape (or from 
cards) is stored in a temporary scratch file (usually on drum). If the 
drum scratch file is used, it does not have to be assigned (on the UNIVAC) 
before execution of the program. 

Input Card Number 3. This card is read by the SETUP subroutine and 
contains starting values for the random perturbation parameters at the 
initial position. If random perturbations are not to be computed (Random 
Option = 2), then this card should not be put in. All values of this free 
field format card are real. For a normal design application the values on 
this card should all be zero, unless the run is to be a continuation of a 
previously run trajectory or profile segment, in which case the output ran- 
dom parameters of the last output position are input, and the last output 
position becomes the initial position of the new run. 

1-6. Initial PL, P$, DL, PS, TL, TS : These are initial values of 

random relative pressure (p'/p). density (p7p)» and temperature (T'/T) in 
percent for the large scale (L) and small scale (S) components. These are 
starting values for the initial position. Use zero for standard design 
appl ications. 

7-10. Initial UL, US, VL, VS : Initial values of the random east- 
ward (U) and northward (V) random wind components in m/s for the large 
scale (L) and small scale (S) components. Use zeros for standard design 


applications. 


Trajectory Input . The free field trajectory position input and back- 
up record are put in only if a trajectory is to be evaluated, rather than a 
linear profile, generated automatically in the program from information on 
the first input card. There is no limit to the number of trajectory posit- 
ion records which can be put in. The program continues evaluating the atmos- 
pheric parameters and looping back to read a new trajectory position until a 
position below the surface is reached, or until the trajectory backup record 
is reached. Each free field trajectory record has the time {integer seconds), 
the height (kilometers), the latitude (degrees, southern latitude negative), 
and the west longitude (degrees, 0-360° or east longitudes negative). Any 
east longitudes read in as negative values are converted to the 0-360° sys- 
tem before being used by the program. The trajectory backup record has the 
same free field form as a regular trajectory record, except any negative value 
for height is used. The negative height terminates the loop which evaluates 
atmospheric parameters and reads a new trajectory record. If a trajectory 
height goes negative, then any remaining trajectory input cards are read and 
ignored. The trajectory input can either be input from cards (trajectory 
option = 5) or form any other unit (with trajectory option = unit number). 

The trajectory option is item 18 on card #1. 

4.4 Output of the Program 

The first few lines of print output are primarily a listing of the 
input parameters. Following a heading which describes each output value for 
the trajectory or profile evaluations, the position, time monthly mean and 
total pressure, density, tern erature, and winds are listed for each position. 
The thermal wind shear for the monthly mean winds, the percent deviation 
from the standard atmosphere (p, p,- and t), the mean vertical wind and the 
perturbation data are also given for each 


position. The perturbation data consist of the stationary perturbations, 
the quasi-biennial values at the position and time, the quasi-biennial mag- 
nitudes, the random perturbation values, and the random perturbation stan- 
dard deviations. , Optional non-print (e.g. disk or punch) output for values 
at each position is also available to be used for input to plotter programs, 
or for other purposes. 

Heading Information . Primarily the heading information contains a 
listing of the input data values. However, there are some changes from the 
values input. If an east longitude is put in as a negative value, -180° < 
lat < 0°, then it is converted to a west longitude in the 0-360 range before 
the heading is listed. The program evaluates the initial random pressure, 
density, temperature and wind standard deviations and the initial density 
velocity correlation from data on the SCI DAT data tape, and lists the com- 
puted values on the heading. The Julian date is computed by the program 
from the input date and is also listed with the heading information. The 
Julian date is required by the Jacchia and QBO sections of the program. If 
month 13 (annual reference period) is input, then the Julian date is set to 
zero. (The Jacchia section takes the exospheric temperature to be 1000° K 
and the QBO section is bypassed if month 13 is input). 

Position and Time Output . Positions and times as generated by the 
automatic linear profile features or as input by the trajectory input cards 
are listed on the output. The time is given in seconds. Within the program, 
the input time in hours, minutes, and seconds are updated in that form also. 
However, only a continuously increasing time in seconds is printed out. If 
time in hours, minutes, and seconds were desired, these variables could 
easily be printed out by adding them to the output list. All output west 
longitudes are converted to the 0-360 range before being printed out. If a 


latitude greater than 90° in absolute magnitude is generated (or input) 
then a transformation 

lat = (180° - llat|)(lat/!latl) (4.6) 

Ion = Ion + 180° (4.7) 

is made. 

Monthly Mean Data . The monthly mean values of pressure, density, and 
temperatures, consist of either: (1) values from the 4-D data tapes if the 

height is below 25 km, (2) the sum of Groves plus stationary perturbation 
values if the height is between 30 and 90 km, (3) an interpolation between 
4-D at 25 km and Groves plus stationary perturbations at 30 km if the height 
is between 25 and 30 km, (4) Jacchia model values if the height is above 
115 km, or (5) faired values between Groves and Jacchia if the height is 
between 90 and 115 km. 

The percent deviations from the U.S. 1962 Standard Atmosphere are 
evaluated by using standard atmosphere values computed by the subroutine 
STDATM. The percent deviations are evaluated by the relations 100(T - T^)/ 

T , 100(p - p )/p , and 100(p - p )/p , where the suDscript s refers to the 

w O w do 

standard atmosphere values. This subroutine accurately reproduces the tabu- 
lated U.S. Standard Atmosphere 1962 values to within an accuracy of better 
than 0.2% above 90 km. The STDATM values are based on a model of parabolic 
segments for the height variation of the molecular weight above 90 km. The 
subroutine reproduces the tabular values even more accurately in the height 
region below 90 km, where the molecular weight is constant. Since the U.S. 

1962 Standard Atmosphere is not defined above 700 km, the percent deviations 
printed out for heights above 700 km are zero. 

The thermal wind shear values are values of 3u/8z and av/9z for the monthly 
mean geostrophic wind (see Section 2). The wind values, computed from the 


usual geostrophic wind equation or the second order geostrophic relation if 
the latitude is less than the input value of minimum geostrophic latitude, 
are determined by horizontal gradients of the monthly mean pressure. The 
thermal wind shear components, computed by the thermal wind equations, are 
determined by the horizontal gradients of the monthly mean temperature. 

Thus, a comparison of numerically differentiated geostrophic mean winds and 
the thermal wind shear serve as a check of the mean pressure and temperature 
fields. The mean vertical wind is evaluated, as described in Section 2, by 
combinations of horizontal and vertical temperature gradients and the geo- 
strophic winds. 

The Total (Mean Plus Perturbation) Data. The parameter values listed 
under the heading of "Mean Plus Perturbations" are the monthly mean values,' 
as defined above, plus the random perturbations, plus (if the height is be- 
tween 10 and 90 km) the quasi -biennial perturbations. These mean-plus-per- 
turbation values represent values which would be typical "instantaneous" 
values of the pressure, density, temperature or winds. The percent devia- 
tions from the U.S. Standard atmosphere are computed in the same way as for 
the percent deviations of the monthly mean values from the standard atmos- 
phere . 

Perturbation Values. The data under the "Perturbation Values" head- 
ing are the various perturbation values, magnitudes, and amplitudes. The 
stationary perturbations (denoted SP on the printout) are defined only if~the 
height is between 30 and 90 km. The monthly mean y^ of parameter y should 
be the Groves value G , evaluated from the SCIDAT data tape, modified by the 
given stationary perturbation value s , In percent, by the relation 


(1 + s^/100) 


(4.8) 


The data labeled "QBO" are the values of the QBO oscillation at the output 
time and position. The data labeled "MAG" gives the magnitude of the QBO 
oscillations at the output position and time. The QBO perturbation values 
should always be less than or equal to the magnitude values in absolute 
value. The data labeled "RANL", "RANS","RANT" are the large scale, small 
scale and total random perturbations evaluated at the output time and place. 
The data labeled "SIGL", "SIGS", and "SIGT" are the standard deviations of 
the large scale, small scale, and total random components at the output time 
and positions. According to the Gaussian distribution, on which the random 
perturbations are based, the perturbation values should be within the range 
± o 68% of the time and outside the range a 32% of the time. Similarly, 
the perturbation values should be within the range + 2a 95% of the time, 
and outside the range + 2a 5%, of the time. The evaluation of the QBO and 
random perturbation output can be suppressed by the QBO and random options, 
if desired. 

Non-Print Output. The non-print output is available as an option, 
controlled by the input value of the output option parameter. If non-print 
output is desired, it comes out in the form of records with format F5.1, 
F6.2, F7.2, 2F5.1, 3F5.0, 5F5.1, 2E10.3, 15, 13 containing the following 
information: (1) the height in km, (2) the latitude in degrees, (3) the 

west longitude in degrees 0-360, (4-5) the percentage deviation of the mean 
monthly values of pressure and density from the 1962 U.S. Standard Atmos- 
phere, (6) the monthly mean temperature, (7-8) the eastward and northward 
components of the monthly mean (geostrophic) wind, (9-13) the magnitudes 
of the total random perturbations in pressure, density, temperature (per 
cent, and eastward and northward wind (m/s), (14-15) the monthly mean pres- 

sure (N/m ) and density (kg/m ), (16) the time, in seconds, and (17) the. 
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month (with 13 indicating annual mean). 

4.5 Program Diagnostics . There are several possible reasons which 
can cause the printing of diagnostic messages and termination of the run dur 
ing the SETUP phase. If, during the setup procedure, the NMC grid point 
number data table does not contain the required 1977 values, a message 
Diagnostic 1 : "N RECORDS WRITTEN BY SETNMC IN SCRATCH FILE M" is printed, 

and EXECUTION IS TERMINATED. This situation should only arise if the NMC 
grid point table is being read from cards, rather than the SCIDAT data tape. 
If during the reading of the SCIDAT data tape, any record is read which does 
not have the expected code character or characters (P, D, T, S, R, RW, QP, 
QD, QT, QU, or QV; see Appendix B), then the message results 
Diagnostic 2 : "ERROR IN SETUP INPUT" followed by a listing of the latest 

data values read in. This message is also produced if the random option and 
the quasi -biennial option do not have a value of either 1 or 2. Any condi- 
tion which results in this error message tenninates the execution. 

There are also general conditions which could result in diagnostic 
messages in the 4-D section: If during the reading of the 4-D data tape on 

the first access of the region below 30 km, a parity error is encountered, 
a message 

Diagnostic 3 : "INPUT UNIT N0. M IN ERR0R (-3) F0R RECORD N0 N" is printed - 

execution continues. Such an error will only be of consequence if the parti- 
cular record read is required for interpolation. If an end of file is read, 
a message is written 

Diagnostic 4: "***** UNIT N0. JT IN ERR0R IRC RECORDS READ 

IREADdRN, 3) + XXXX MP = XX Mj3NTH = XX IP = XXXX IPT(I, J) = XXXX IRN = XX 

M STATUS L" 

Where 
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JT = Unit on which 4-D data .tape is mounted 

IRC = Total number of records read thus far from 4-D tape 

IREAD(IRN, 3) •- Sequential point number selected by SELEC4 

MP = Month word in last record read 

M0NTH = Run month 

IP = Point number word in last record read 

IPT(I, J) = Point number required for profile J to be interpolated 
to Ith requested profile 

IRN = Sequential point number required 

M = Unit status (READ) 

L = NTRAN status (-2 for end of file, -3 for parity, etc.) 

and EXECUTION IS TERMINATED 

If IRC > IREAD(IRN, 3), the diagnostic message 4 is written - L should 
be 106, and IRC and IREAD values should indicate ti.is condition. EXECUTION 
IS TERMINATED. 

If MP M0NTH, or IP f IP(I, J) the diagnostic message 4 is printed, 
again with L = 106, and MP/MONTH or IP/IP(I, J) indicating error. EXECUTION 
IS TERMINATED. 

The writing of scratch file SCRCHl with data for subsequent unpacking 
and interpolation is also checked. If there is a write error, the diagnostic 
4 is printed, with JT the scratch file unit number, M as WRITE and L as -3 
or -4. EXECUTION IS TERMINATED. 

These diagnostics can arise if a bad or wrong 4-D data tape is being 
accessed, or if there is a malfunction of the tape drive. In some cases a 
tape will, for example, indicate parity errors when being read from one tape 
drive, but not another. 

If, during the course of evaluation of position in the 4-D height 


range, it is found that the position is outside the previously established 
4-D grid, then a new grid is generated by calling GEN4D. If this occurs 
again, the message results 

Diagnostic 5; "UNABLE TO GENERATE 4-D GRID" and EXECUTION IS TERMINATED. 

A new feature, the wind diagnostic symbol (asterisk), has also been 
added to the program. Presence of the asterisk between the E-W and N-S 
wind components on the print output indicates a diagnostic condition yield- 
ing questionnable wind values. Conditions which can produce this are: 1) 

a negative value computed for c (equation A-14 when attempting to evaluate 
second order geos trophic winds (in this case ^ is set to zero and calcu- 
lation proceeds), 2) second order geostrophic wind speed greater than nor- 
mal geostrophic wind speed when the latitude is in the second order geo- 
strophic range (in this case the normal geostrophic wind components are output 
instead of the second order geostrophic winds), 3) a 4-D data consistency 
check violation (i.e. unrealistic scale heights or unrealistic horizontal 
pressure gradients) within the 4x4 grid of 4-D data profiles. 


5. PROGRAMMERS MANUAL 
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5.1: Description of Subroutines 

The following is a brief description of each of the PROFILE program 

subroutines, in alphabetical order: 

ADJUST: Adjusts the 4-D profiles of pressure, density, and temperature 

variance (read from the 4-D tapes) to satisfy the Buell constraints 
imposed by the perfect gas law and hydrostatic equation 

CHECK: A consistency check routine for the 4-D 16 profile grid data pro- 

duced by GEN4D. CHECK is called for each height to be evaluated, 
and tests for reasonable values of scale height immediately above 
and below that height. It also tests for reasonable horizontal 
pressure gradients. Failure of either test produces the diag- 
nostic asterisk between the output values of wind components. 

CORLAT: Evaluates the horizontal and vertical scales for large and small 

scale density, temperature, and wind components, computes the auto- 
correlations and cross correlations for the two scale perturbation 
model, and evaluates new perturbation values having appropriate 
correlations with the perturbations at the previous position. 

DIAGEQ: A matrix diagonalizing procedure used by the ADJUST subroutine. 

FAIR: Fairs between the Groves and Jacchia values in the 90 to 115 km 

height range. 

GEN4D: Generates the polar ( (latitude { > 75°) or non-polar (16 5° x 5° 

points) grid of pressure, density, temperature and variance pro- 
files. See Figure 5.1 for a flow chart of this subroutine. 

GETNMC: Reads the NMC grid point values from the SCIDAT data tape or from 

cards and loads them onto a scratch file. This subroutine is 
essentially unchanged from the subroutine of the same name in the 
original 4-D program. 

GRAM: The main segment of the Global Reference Atmospheric Model program. 

The main segment serves as a driver for the SETUP and SCIMOD sub- 
routines. 
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Figure 5.1: Simplified flow chart of the 6EN4D subroutine. 
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6RID4D: After array of 4-D grid lat-lons has been evaluated, this subrou- 

tine looks up the data from the 4-D data tapes and interpolates 
to determine profiles of pressure density, temperature, and var- 
iance at the 4-0 grid locations. Profiles to be interpolated to 
4-D grid locations are loaded onto a scratch file from the tapes 
before the interpolation is done. 

GRJJUP A subroutine, called by CHECK, which groups the 16 4-D pressure data 
at the given height into one or more groups which have consistent 
and reasonable horizontal pressure gradients within each group. 

If the subsequent geostrophic wind calculations in WIND use hori- 
zontal pressure gradients evaluated from differences across incon- 
sistent groups of 4-D data, the diagnostic asterisk is printed be- 
tween the output values of wind components. 

GTERP: Uses linear latitude interpolation and linear temperature and 

linear logarithm of density interpolation on height to evaluate 
Groves data to a given latitude and height. See Section 5 of 
Justus et al (1974a). 

INTERW: Two variable linear interpolation between known value U1 and VI at 

Z1 and U2 and V2 at Z2 to determine U and V at Z, where Z is be- 
tween Z1 and Z2. 

INTERZ: Three variable interpolation, linear on temperature, and gas con- 

stant (R = p/pT), and linear on the logarithm of pressure, with 
pressure computed from perfect gas law and interpolated tempera- 
ture and density, and gas constant. 

INTER2: Three variable interpolation, linear on all three variables. 

INTER4: Interpolates between the pressure, density, and temperature pro- 

files at the 4-D grid locations. This subroutine calls subroutine 
INTLL to do the latitude interpolation. 

INTEL: One variable interpolation between values in an array of latitude 

and longitude locations by equation (5.6) of Justus et al (1974a). 



INTRP4: The subroutine for the latitude-longitude interpolation of values 

from the 4-D data tapes into the 4-D grid array. This is a modi- 
fication of the INTERP subroutine of the original 4-D program. 

INTRUV; Evaluates the standard deviations of the random wind components at 
given height and latitude by calling INTERW subroutine. 

JAC: Calculates the molecular weight, density, and temperature for the 

Jacchia model . 

JACCH: Main subroutine of the Jacchia section, serves as a driver for JAC 

and other Jacchia section subroutines. JACCHIA also evaluates the 
seasonal and latitudinal variations in the lower thermosphere. 

NORMAL: Computes two independent random numbers selected from a Gaussian 

distribution with mean zero and unit standard deviation. 

PDTUV: Interpolates the stationary perturbations on latitude and longitude 

at a given height. Ths subroutine is similar to INTEL. 

PERTRB: Evaluates the pressure, density, temperature and wind component 

random perturbations by the correlated random perturbation model 
discussed in Section 8 of the technical description section of the 
report. 

PHASE: A. linear height-latitude interpolation routine for the quasi-bien- 

nial phase. The interpolation properly accounts for the phase 
discontinuity between 0 and 870 days (the quasi-biennial period). 

QBOGEN: Computes the QBO perturbation values and their amplitudes and phases. 

The amplitudes and phases of the QBO pressure, density, temperature, 
and wind perturbations are interpolated from the amplitude and phase 
data from the SCIDAT data tape, by calling the INTERZ and INTERW 
subroutines. 

RAND: Produces a random number selected from a uniform distribution be- 

tween 0 and 1. This is required as input to the subroutine NORMAL. 

RIG: Computes the acceleration of gravity and the radius from the cen- 

ter of the Earth for a position at a given latitude and height. 

RTERP: Computes the standard deviations of the random pressure, density, 

and temperature perturbations by calling subroutine INTERZ. 
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RTRAN; 

SCIMOD: 


SELEC4: 

SETUP: 

SORT4: 

STDATM: 

TINF: 

TME: 

WIND: 


This subroutine contains several NTRAN read sections with multiple 
entry points coming from subroutine SETUP. The NTRAN read state- 
ments are for reading the SCIDAT data tape. 

The heart of the GRAM program. This subroutine branches on 
height to evaluate the atmospheric parameters by the Jacchia, the 
modified Groves, or the 4-D methods. The QBO and random pertur- 
bations are also evaluated and the output is printed (and option- 
ally also punched) by the SCIMOD subroutine. See Figure 5.2 for a 
flow chart of the SCIMOD subroutine and Figure 4.1, for a flow 
chart showing how SCIMOD fits into the overall GRAM prog- 
gram. 

Selects the 4-D data needed for interpolation. This subroutine 
is a modification of the INPUT subroutine of the original 4-D pro- 
gram. 

This subroutine reads in the NMC grid points with the GETNMC sub- 
routine and reads and loads the data from the required month on 
the SCIDAT data tapes into arrays. See Figure 5,3 for a flow chart 
of the SETUP subroutine, and Figure 4.1 for a flow chart showing 
how SETUP fits into the overall GRAM program. 

Sorts the 4-D locations for sequential tape reading from the 4-D 
data tapes. This subroutine is a modification of the SORT subrou- 
tine from the original 4-D program. 

Evaluates the 1962 U.S. Standard Atmosphere values of pressure, 
density, and temperature, at any given height up to 700 km. 

This subroutine computes the exospheric temperature for the 
Jacchia model . 

This subroutine calculates the variables necessary for input into 
the subroutine TINF in the Jacchia model. 

This subroutine evaluates the first order (usual) geostrophic winds 
from input values of horizontal pressure gradient. If the latitude 
is below the minimum geostrophic latitude, it evaluates the second 
order geostrophic wind, and uses that wind (if it is smaller in 
magnitude than the first order geostrophic wind). If a negative 
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Figure 5.2: An abbreviated flow chart of the SCIMOD subroutine. 












.1 



Figure 5.3; Abbreviated flow chart of the SETUP subroutine. 
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value of j; is computed or if the low latitude second order geo- 
strophic wind is larger than the first order geostrophic wind, a 
diagnostic asterisk will be output between the wind component 
values printed out. 

The UNIVAC tape reading library routine NTRAN is not available on all 
computers. However, a similar function (reading 36 bit binary integer arrays 
in tape records) can be performed easily by alternate program techniques. 

For example, on Georgia Tech’s CDC Cyber 74 system, this function is done by 
BUFFER IN statements. These routines are used to read the SCIDAT and 4-D 
data tapes. Also the FLO function, a UNIVAC library routine used to divide 
the 36 bit 4-D tape words onto 2 18 bit integers, must also be programmed 
by alternate methods on non-UNIVAC machines. On Georgia Tech's CDC machine, 
this is done by specially written subroutines (WRDCHG, RFLD, and FLD) which 
utilize the SHIFT and MASK bit manipulating CDC library routines. 

If the GRAM program is mapped without segmenting the program, it 
requires approximately 39 K decimal words core storage. In order to take up 
less core storage (e.g. be accomodated into smaller core partitions), the 
program can be mapped in segmented form. An efficient segmentation of the 
program can be accomplished by subdividing the program into a primary seg- 
ment, a setup segment, a Jacchia segment, and a 4-D segment. The primary 
segment should contain CORLAT, GRAM, GTERP, INTERW, INTERZ, INTER2, INTRUV, 
NORMAL, PDTUV, PERTRB, PHASE, QBOGEN, RAND, RIG, RTERP, SCIMOD, STDATM, and 
WIND. The setup segment should contain: GETNMC, RTRAN, and SETUP. The 

Jacchia segment should contain: FAIR, JAC, JACCH, TINF, and TME. The 4-D 

segment should contain: ADJUST, CHECK, DIAGEQ, 6EN4D, GRID4D, GROUP, INTER4, 

INTEL, INTRP4, SELEC4, and S0RT4. The following MAP statement for file GRAM 
to create absolute element ABS will accomplish the mapping of the program 
with these segments setup as described: 
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0MAP, IS , GRAM. ABS 


IN GRAM. CORLAT, . 

GRAM, 


IN GRAM. INTER2, . 

INTRUV, 

. NORMAL, . PDTUV, . PERTRB, 

IN GRAM. QBOGEN, . 

RAND, . 

, RIG, . RTERP 

IN GRAM. SCIMOD, . 
NOT TPF$ 

SEG SETUP* 

STDATM, 

. WIND 

IN GRAM. GETNMC, 
NOT TPF$ 

. RTRAN, 

. SETUP 

SEG JACCH*. SETUP 



IN GRAM. FAIR, . 
NOT TPF$ 

SEG SEG4D*, SETUP 

JAC, . 

JACCH, . TINF, . TME 

IN GRAM. ADJUST, 

. CHECK, 

. DIAGEQ 

IN GRAM. GEN4D, . 

GRID4D, 

. INTER4, . INTEL, „ INTRP4 

IN GRAM. SELEC4, 
NOT TPF$ 

END 

. S0RT4, 

. GROUP 


PHASE 


This segmented map saves approximately 4 K (decimal) in core storage, but 
does not significantly affect run time, since the segments being overlayed 
(the setup, Jacchia, and 4-D segments) only have to be loaded in once during 
any given trajectory or profile evaluation. If further reduction in size is 
desired the 4-D segment can be subdivided into two parts, one containing 
only CHECK, GROUP, INTER4, and INTEL and another segment containing ADJUST, 
DIAGEQ, GEN4D, GRID4D, INTRP4, SELEC4 and S0RT4. fhis saves another 1 K in 
storage, approximately. 

Some characteristics of some of the subroutines in each of these seg- 
ments are described more fully in the following sections. 

5.2: The Primary Section 

This section consists of the main program segment GRAM, the SCIMOD 
subroutine, the subroutines for evaluating Groves values, the stationary per- 
turbations, the QBO and random perturbations, and general interpolation sub- 
routines. With the exception of GRAM and SCIMOD the parts of this section 
were adequately described in the previous section. 

Many of the subroutines transfer their input and output via COMMON 
statements. This procedure saves much in core storage space. The discussion 


78 


in this and subsequent sections describes the input and output of some of 
the subroutines, both by argument lists and via COMMON statements. 

Main Segment GRAM . This program serves as a driver for the SETUP and 
SCIMOD subroutines (see Figure 4.1). It reads one card, the first input 
card, in free field format. This card contains: 


1. 

The initial height 

HI 


2. 

The initial latitude (degrees) 

PHIl 


3. 

The initial west longitude (degrees) 

THETl 


4. 

The FI 0.7 solar flux 

FIO 


5. 

The 81 day mean F10.7 solar flux 

FI OB 


6. 

The ap geomagnetic index 

AP 


7-9. 

The date month/date/2 digit year 

MN/IDA/IYR 

10-12. 

The Greenwich time hours: minutes: 
seconds 

IMRO; 

MINO; ISECO 

13-15. 

The latitude, longitude, and height 
increments 

DPMI, 

DTHET, DH 

16. 

The maximum number of profile positions 

NMAX 


17. 

The time increment between profile 
positions 

INCT 


18. 

The trajectory option 

lOPT 


19 

The output option 

lOPP 


20. 

The minimum geos trophic latitude 

GLAT 



The trajectory input records (if used) are also read by GRAM, after control 
has returned from SETUP, which rfiadr> the second and third initial data in- 
put cards. See Section 4.4 and Appendix C for further description of the 
card input. 

The COMMON "lOTEMP" transfers data from the card input in GRAM to the 
other subroutines called by GRAM (SETUP, SCIMOD, and RIG). 
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Subroutine SCIMOD. This program is the primary subroutine of the GRAM 
program. It serves as a driver for all of the various sections of the atmos- 
pheric evaluation. See Figure 5.2 for a flow chart of this subroutine. 

The input to SCIMOD, transferred by COMMON statements lOTEMP and PDTCOM, 


is: 

2 

1. Acceleration of gravity (m/sec ) 

2. Earth radius to height H (km) 

3. Height (km) 

4. Latitude (radians) 

5. Longitude (radians) 

6. F10.7 solar flux 

7. Mean F10.7 solar flux 

8. Geomagnetic index ap 
9-11.. Date 

12-14. Time 

15. Previous height (km) 

16. Previous latitude (radians) 

17. Previous longitude (radians) 

18-20. Previous random pressure, density, and 
temperature perturbations (%), large 
scale (L) and small scale (S) 

21-23. Previous random pressure, density, and 
temperature standard deviations (5), 
large scale (L) and small scale (S) 

24-25. Previous random winds (m/s), large 
scale (L) and small scale (S) 

26-27. Previous standard deviation of random 
winds (m/s), large scale (L) and small 
scale (S) 


G 

RI 

H 

PHIR 
THETR 
FIO 
FI OB 
AP 

MN/IDA/IYR 
IHR: MIN: ISEC 
HI 

PHIIR 

THETIR 

RPIL, RDIL, RTIL, RPIS, RDIS, RTIS 

SPIL, SOIL, STIL, SPIS, SDIS, STIS 

RUIL, RVIL, RUIS, RVIS 

SOIL, SVIL, SUIS, SVIS 
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The COMMON "PDTCOM" contains data transferred into SCIMOD from SETUP. 

The COMMON "lOTEMP" transfers data in from GRAM. The COMMON "C4" transfers 
data out to the 4-D section of the program. The COMMON "COMPER" transfers 
data out to the random perturbation subroutines. 

The SCIMOD subroutine prints and (optionally) punches on a non-print out- 
put file, the output described in Section 4 and Appendix C. It also trans- 
fers output to other subroutines via the above-mentioned COMMON lists. The 
SCIMOD subroutine updates the profile or trajectory positions by setting the 
current position equal to the previous position before exit. The previous 
position information then stays in the COMMON list unit the next call to 
SCIMOD. The previous random perturbations are handled in similar fashion 
5.3 The Setup Section 

The function of the setup section of the program is to load the init- 
ial data and the data from the SCI DAT tape. See Figure 4.1 for a flow chart 
illustrating how the SETUP subroutine fits into the overall program and Fig- 
ure 5.2 for a flow chart of the SETUP subroutine. 

The SETUP subroutine reads the second and third cards of input. The 
second cards contains: 


1. 

Groves input unit 

lUG 

2. 

Random input unit 

lUR 

3. 

QBO input unit 

lUQ 

4. 

4-D input unit 

IU4 

5. 

Random option 

lOPR 

6. 

QBO option 

lOPQ 

7. 

First random number 

NRl 

8. 

NMC read option 

NMCOP 

9. 

4-D scratch unit 

lOTEMl 

10. 

NMC grid point scratch unit 

I0TEM2 


The third card (optional, read only if lOPR = 1) contains: 

1-6. Initial random perturbations in pressure, 

density, and temperature (%), large scale RPIL, RDIL, RTIL 
(L) and small scale (S) RPIS, RDIS, RTIS 

7-10. Initial random wind perturbation (m/s), 

large scale (L) and small scale (S) RHIL- R'/IL. RillS, RVIS 

The COMMON list "PDTCOM" transfers the arrays, loaded with the appro- 
bate data from the SCIDAT data tape, to the other subroutines. This COMMON 
list contains the followino arrays: 


1-3. 

Groves pressure, density, and temperature 

PG, D6, TG 

4-6. 

Stationary perturbations in pressure, den- 
sity, p/;id temperature 

PSP, DSP, TSP 

7-11. 

Amplitudes of QBO pressure, density, and 
temperature, and winds 

PAQ, DAQ, TAQ, UAQ, VAQ 

12-16. 

P'lases of QBO pressure, density, and tem- 
/erature, and winds 

PDQ, DDQ, TDQ, UDQ, VDQ 

17-21. 

Standard deviations for the random pres- 
sure, density, temperature and winds 

PR, DR, TR, UR, VR 


Tie COMMON list "COTRAN" is used to transfer data to setup from the 
NTRAN riad subroutine RTRAN, which has multiple entry points for various dif- 
ferent types of data from the SCIDAT data tape. 

5 . 4 ' he Jacchia Section 

The subroutine JACCH calculates the pressure, density, and temperature 
at a point in space for heights above 90 km for a particular time. 


1 . 

2 . 

3. 

4. 

5. 

6 . 


Height in km 
Latitude in radians 

West longitude in degrees (0 to 360 degrees) 
Solar radio noise flux FI 0.7 (10"^^ watts/m^) 
81 - day average solar flux FI 0.7 
Geomagnetic index ap 



H 

PHIR 
THET 
FIO 
FI OB 
AP 


7. 

Month 

MN 

8. 

Day of month 

IDA 

9. 

Year 

lYR 

10. 

Hour of day in universal time 

IHR 

11. 

Minute of hour in universal time 

MIN 

12. 

Mean Julian day 

XMJD 

The outputs are: 


1 . 

2 

Pressure in units of nt/m 

PH 

2. 

3 

Density in units of kg/m 

DH 

3. 

Temperature in Kelvin degrees 

TH 


The theory and methods used in JACCH for calculating the pressure, 
density, and temperature are given in Jacchi a, (1970). A brief explanation 
will be given below. 

The Si^broutine JACCH consists of four sections: the main routine and 

three imbedded subroutines. All sections have numerous comments to explain 
each part of the program. 

Main Routine (JACC H). The main routine acts as the calling routine, 
and also, calculates the seasonal - latitudinal variations in the lower 
thermosphere. 

The seasonal - latitudinal density variations are given by equation 
(2.1) of Justus et al (1974 a). 

The equations for the molecular weigh:'; and the relative temperature 
were given as equations (2.2) and (2.3) of Justus et al (1974 a). 

After the density, temperature, and molecular weight are calculated, the 
pressure is calculated from the ideal gas law: 

‘ p = pEI. 

- M 

where p is the density, R is the universal gas constant, V is the temperature, 
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and M is the molecular weight. 

An option is included in the main routine whereby the yearly mean 
values of the density, pressure, and temperature may be calculated directly. 
If the value of the month input variable is thirteen, (MN =13), the exosphe 
temperature is immediately set equal to 1000® K (which is the recommended 
design value for annual mean conditions) and the yearly mean density, pres- 
sure, and temperature values are calculated. Note that the 1962 U.S. Stan- 
dard Atmosphere has an exospheric temperature of approximately 1500® K and 
is thus considerably different from the 1000® K results of the annual mean 
in the PROFILE program. 

Subroutine TME . This subroutine calculates variables necessary for 


input into the subroutine TINF. The input variables are: 

1. month (month =13 denotes annual mean and bypasses 

this subroutine) MN 

2. day of month IDA 

3. year lYR 

4. hour of day in universal time IHR 

5. minute of day in universal time MIN 

6. mean Julian day XMJD 

7. latitude in radians XLAT 

8. longitude in degrees (input: 0 to 360 degrees turning 

westward; output: -180 to + 180 degrees) XL0N6 

The output variables are: 

1. solar declination angle in radians SDA 

2. solar hour angle in radians SHA 

3. day number from January 1 DD 

4. day number divided by tropical year (365.2422 days) DY 
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Subroutine TINF . This subroutine calculates the exospheric tempera- 


J 

ture. 

The input variables are: 



1. 

-22 2 

solar radio noise flux (10 watts/m ) 

FIO 


2. 

81 - day average FIO 

FI OB 


3. 

geomagnetic latitude in radians 

XLAT 


4. 

solar declination angle 

SDA 


5. 

solar hour angle 

SHA 


6. 

day number divided by tropical year 

DY 


7. 

diurnal factor equal to 0.31 

R 


The output is the exospheric temperature, TE. Factors included in 
the calculation of the exospheric temperature are solar activity variations, 
diurnal variations, variations with the geomagnetic activity, and semi-annual 
variations. 

Subroutine JAC . This subroutine calculates the molecular weight, 
density, and temperature without the seasonal - latitudinal variations. The 


input variables are: 

1. height in km Z 

2. exospheric temperature T 

The output variables are: 

1 . temperature TZ 

2. molecular weight EM 

3. density DENS 

5.5 The 4-D Section 


GRID4D and subroutines S(3RT4, INTRP4 and SELEC4 are basically the MAIN 
PROGRAM, S^RT, INTERP and INPUT as documented in the 4-D users reference man- 
ual and subsequent updates. 

Some changes have been made. 



statement nuntiers have been ordered in GRID4D and S0RT4. 

In GRID4D, NTRAN M0VE statements are used to select the appropriate 
file for a given month on the 4-D data tape mounted on UNIT IT in the UN I VAC 
version. In Georgia Tech's CDC version, and on other machines, separate 
reads for each record must be used until and end of file is reached, and 
reading continues until the proper file is found. If a parity error is 
encountered in reading IT, a message 

"INPUT UNIT NO. IT IN ERR0R F0R REC0RD N0 IRC" 
is printed - execution continues. Such an error will only be of consequence 
if the particular record read in error is required for interpolation. 

Grid point profiles for subsequent interpolation are tagged and filed 
on a dynamically assigned scratch UNIT SCRCHl (I0TEM1 in calling program), 
instead of occupying core as in the 4-D model. 

Any error iu the handling of the 4-D data tape or UNIT SCRCH(I0TEM1 
in callirjg program) by TRID4D which results in a transfer to 

STATEMENT NO. 30 

is fatal, and results in the printing of an error message and termination of 
execution (see Section 4.5). 

Slight changes have been made to the logic of S0RT4 in the interests 
of efficiency. 

SELEC4 is concerned only with the selection of the record numbers of 
the appropriate interpolation profiles. 

GETNMC has been added to file the NMC grid point data, read either 
from cards of the SCIDAT data tape on UNIT lUG, on a dynamically assigned 
•scratch file SCRCH2 (I0TEN2 in calling program), instead of occupying 1977 
words of core as in the 4-D model. If other than 1977 records are filed, an 
error message 
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"N RECORDS WRITTEN BY GETNMC ON SCRATCH FILE M" 
is printed and execution terminated. 

INTRP4 uses a modified latitude - longitude interpolation scheme in the 
mixed NMC - equatorial, equatorial and southern hemisphere regions. 

The dimensions of some variables have been altered in keeping with 
the maximum number of profiles to be used in interpolation (16 instead of 25 
as in the 4-D model), and to provide the index word for each record of 
SCRCHl (IN (107) instead of (106)). 

All references to, and subroutines associated with, the determination 
of the coefficients of the best fit polynomials to the selected profiles, as 
performed in the original 4-D model* have been deleted. All vertical inter- 
polations required are performed by SCIM0D. 
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APPENDIX A 


THE SECOND ORDER GEOSTROPHIC WIND RELATIONS 

The atmospheric equations of motion in B plane representation on con- 
stant pressure surfaces, as derived in any of the standard meteorological 
references (e.g. Hess , 1959), can be written as 


+ u(u^) + v(u^ - f) = -g z^ 

(A-l) 

+ u(v^ + f) + v(Vy) = -g Zy 

(A-2) 


where u and v are respectively the eastward and northward wind components, f 
is the Coriolis parameter (2 sin i>), g is the acceleration of gravity, z 
is the height of the constant pressure surface, and subscripts denote partial 
differentiation with respect to the subscript variable. For the geostrophic 
approximation the local and convective derivatives are assumed negligible so 
that balance results between the Coriolis force and the pressure gradient 
force . 


V = g z/f (A-3) 

u = -g z^/f (A-4) 

where u and v are the geostrophic wind components. The geostrophic wind 
equations suffer from the well known problem that they produce unreasonably 
large velocity estimates as f becomes small (i.e. at equatorial latitudes), 
because f appears in the denominator. This Appendix describes a wind equa- 
tion which is only slightly more generalized than the geostrophic equation, 
but does not suffer this anomaly at low latitudes. The new equation is also 
based on the assumption of stationary flow (u^ = v^ = 0), but the spatial 
derivatives (u , u , etc) are assumed to be constants, rather than zero as 
in the geostrophic analysis. Thus, the new equations are referred to as 


A-1 


second order geostrophic relations. 

If the assumptions = 0 and = a, = b, = c, = d ' 

(where a, b, c and d are constants) are substituted into equations (A-1) and 
(A-2), and the resultant equations are differentiated alternately with re- 
spect to X and y, the following four equations result: 


a^ + (b - f)c = -g z^^ 

(A-5) 

ab + (b - f)d = -g z^y 

(A-6) 

a(c + f) + cd = -g z^y 

(A-7) 

b(c + f) + d^ = -g Zyy 

(A-8) 


The continuity condition on constant pressure surfaces is (see, e.g. Hess , 
1959; page 262) 

u^ + Vy + w p = 0 (A-9) 

where oi is the vertical velocity (w = dp/dt) in constant pressure coordi- 
nates. This relation is exact in that the density gradient terms do not 
appear in the constant pressure surface analysis. If the vertical term in 
(A-9) is neglected then the continuity condition becomes 

u + V = a + d = 0 (A-10) 

^ y 

from which it follows, by (A-6) and (A-7), that 

a = -d = -g z^y/f (A-11) 

Subtraction of (A-5) from (A-8) yields the following equation for the strain 
y(y = c + b) 

Y = g(z - z )/f (A-12) 

XX yy" ' ' 


A-2 


and addition of (A-5) and (A-8) yields a relation for the vorticity ; (? = 
c - b) 

5^/2 + fc - g(z^^ + Zyy) - 2a^ - y^/2 = 0 (A-13) 

which has as a solution 

? = -f + [f^ + + 4a^ + 4g(z^^ + (A-14) 

where the positive sign is for norther" hemisphere and the negative sign for 
southern hemisphere. Relations (A-12) and (A-14) can be used to evaluate 
the constants b and c by the relations 

b = (y - ?)/2 (A-15) 

c = (y + c)/2 (A-16) 

With values for the constants a, b, c, and d, the solutions to (A-1) and 
(A-2) (now easily found as the algebraic solution of these two simultaneous 
equations, linear in u and v) are given by 

u = (g/D) [az^ + (b - f)z^] (A-17) 

V = (g/D) C-az^ + (c + f)z^] (A-18) 

where D is the determinant of the system given by 

D = ad - (b - f)(c + f) (A-19) 

Although the geostrophic wind is (?(f"^) as f approaches zero, the gen- 
eralized gradient wind solutions (A-1 7) and (A-18) are (?(f) as f approaches 

zero. This follows from the fact that although the wind derivatives a, b, 

1 -2 

c, and d are 0(f' ) the determinant D is 0(f ), hence u and v become 0(f). 
This overcomes the geostrophic dilemma of large velocities at equatorial 
latitudes. The generalized gradient wind does become exactly zero at f = 0, 
an obvious simplification from what really occurs, but not a gross error, 
since the true winds at the equator are generally light. 

For a constant geometric height representation, in which pressure grad- 
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ients must be used instead of the gradients of the pressure contour '^eights, 
the substitutions 


Px 

(A-20) 

Zy = (o/g) Py 

(A-21) 

^X = (“/a) Pxx Px 

(A-22) 

Zyy = (o/g) Pyy + 2{yg) Py 

(A-23) 

= (Vg) Pj^ + (a^^/g) Py + (yg) p^^ 

(A-24) 


must be made into equations (A-11) through (A-19). The equations (A-20) 
through (A-24) come from the general pressure-height transformation equations 


(fx) p = (fx)^ + (a/g) f^ 

(fy) p = (fy>z + (o/g) Py 


(A-26) 

(A-27) 


where the subscripts x, y and z denote partial differentiation, and the 
notation ( )p and ( denotes differentiation on a constant pressure sur- 
faces or a constant height surface, respectively. In equations (A-20) 
through (A-27) a specific volume (1/p) and the derivatives and are 
evaluated from the perfect gas law by 


ct^ = cx(T^/T - p^/p) (A-28) 

“y " 


(A-29) 


APPENDIX B 


LISTING OF THE REVISED TAPE 
"SCIDAT-MOD-2" FOR THE GRAM PROGRAM 

The tape contains the following data, identified by code characters 
at the beginning of each record. Month 13 refers to annual mean values. 

For code P, D, T, S, R and RW data, southern latitudes are given by northern 
hemisphere data displaced six months. Annual mean data and the QBO para- 
meters are the same for both southern and northern hemispheres. For a more 
complete discussion of the input data, see Section 4.2. 


Code Data 

None NMC Grid Data 


2 

P Groves Pressure (nt/m ) 

3 

D Groves Density (kg/m ) 

T Groves Temperature (°K) 

S Stationary Perturbations in 

monthly means (per mill) 


R Random pressure, density and 

temperature perturbation 
magnitudes (per mill) 

RW Random magnitudes wind per- 

turbation (m/s) 

p Fractional variance in large 

scale thermodynamic variables 


PW Fractional variance in large 
scale winds 


Description 

Same as NMC Grid Required by NASA ver- 
sion 4-D program. Data consists of 
sequential point number followed by 
the two corresponding NMC grid indices 
There are five points per record on 
the tape. 

Month, height, values at latitudes 0, 
10, 20, ... 90 exponent. Same format 
as in Groves report. 


Month, height, longitude, Ap at north 
latitude, 10, 30, 50, 70, 90, Ap same, 
at same. 

Month, height, Ap at north latitude 
10, 30, 50, 70, 90, Ap same, aT same 


Month, height, au at north latitude 
10, 30, 50, 70, 90, Av same 

13 (Annual), height, fractional var- 
iance in large scale per mill for pres 
sure, density and temperature, each 
at latitude 10®, 30®, 50®, 70°, 90° 

13 (Annual), height, fractional var- 
iance in u at 10°, 30°, 50®, 70®, 90° 
latitude, same for v 
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Code 


Ddta 


CS Small, scale density-velocity 
correlations 


CL Large scale density-velocity 
correlations 


QP QBO pressure parameters -amp- 
litude (per mill) and phase 
(days after Jan. 0, 1966 
when 1st maximum occurs) 

QD QBO density parameters (as 

in QP) 

QT QBO temperature parameters 

QU QBO eastward wind para- 

meters -amplitude (0.1 m/s) 
and phase (days after Jan.. 

0, 1966) 

QV QBO northward wind para- 

meters - (as in QU) 


Description 

13 (Annual), height, <pu>s at 10°, 
30°, 50°, 70°, 90° latitude, same 
for <pv> 

13 (Annual), height, <pu>? 10°, 
30°, 50°, 70°, 90° latitude, same 
for <pv>j^ 


Height, amplitude and phase at 10° 
latitude, amplitude and phase at 30° 
... , amplitude and pha.se at 90° 


The tape consists of five NTRAN readable (36 bit binary integer word record) 
files with an end of file marker after each file. The first file contains 
the NMC grid data, the second contains the Groves and stationary perturbation 
data, the third contains the random perturbation data, the fourth contains the 
fractional large scale variances and the density- velocity correlations, and 
the fifth contains the QBO data. The number of words per NTRAN record is 15 
for the NMC grid data. Each record contains NMC grid x-y coordinates for 5 
points. The total number of NMC grid points is 1977. The NMC grid data file 
contains a total of 396 records, with the last record containing points 1976 
and 1977 and zeros in the remaining words. There are 14 words per record 
for the Groves data (including the code word), 19 for the stationary pertur- 
bations, 18 for the code R data, 13 for the code RW data, 18 for the large 


scale fractional variances in thermodynamic variables, 13 for large scale 
fractional wind variances, 13 for the density-velocity correlations (small 
scale and large scale), and 12 for the quasi -bier lial data. The Groves data 
contains 702 records, the stationary perturbation data contains 1248 records, 
the code R random data contains 260 records, the code RW random winds data 
contain 325 records, the code P large scale fractional variances contain 25 
records, the code PW large scale fractional wind variances contain 25 records 
and code CS and CL density -velocity correlation data contain 25 records each, 
and the QBO data contain 80 records. 

Following is a listing of the data contained on the SCIDAT tape. 




V 
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* r i 


1 

GrrIC 
1 5 

DAT 

1 


1 6 

1 

3 

17 


6 

20 

1 

7 

21 

1 

, §■ ' 

22 

1 

11 

2 5 

1 

12 

26 

1 

13 

2 7 

4 

16 

30 

1 

17 

• 

wX 

.4 . 

X 

18 

32 

1 

2i 

1 5 


22 

1 6 

? 

W 

2 3 

17 

0 

4. 

26 

20 

✓ 

2^ 

cl 

2 

7 a 

22 

2 

31 

25 

2 

32 

2 6 

c 

7 i 

27 

9 

36 

3Q 

2 

37 

31 

2 

3 8 

32 

2 

41 

13 

3 

-»2 

1 4 


4 5 

15 

1 


13 

7 

47 


3 

48 

2G 

3 

5i 

23 

3 

52 

24 

3 

55 

25 

3 

56 

? 


57 

29 

3 

58 

15 

7 

61 

SZ 

T 

62 

34 

3 

63 

35 

3 

be 

1 4 

4 

67 

13 

4 

6 8 

16 

4 

71 

19 

■4 

72 

20 

4 

73 

21 

4 

76 

2 4 

4 

77 

25 

4 

78 

26 

4 

ai 

29 

4 

82 

3C 

4 

83 

31 

4 

ee 

54 

4 

37 

35 

4 

a a 

36 

4 

91 

13 

5 

92 

14 

5 

93 

15 

5 

96 

13 

5 

97 

19 

5 

98 

20 

5 

iCi 

23 

5 

102 

24 

5 

103 

25 

5 

1C6 

28 

5 

107 

29 

5 

108 

30 

5 

111 

33 

5 

112 

34 

5 

113 

35 

9 

116 

10 

6 

117 

11 

6 

ii‘» 

12 

6 

121 

1 5 

6 

122 

16 

6 

123 

x7 

5 

126 

20 

o 

12*" 

21 

6 

128 

22 

6 

13* 

? c 

6 

152 

26 

6 

133 

27 

6 

136 

30 

6 

137 

31 

6 

138 

32 

6 

141 

3 5 

o 

142 

36 

6 

14 3 

37 

6 

1 4 c 

iC 

7 

147 

11 

7 

148 

12 

7 

151 

13 

7 

1p2 

is 

7 

153 

17 

7 

156 

20 

7 

157 

21 

7 

158 

22 

7 

161 

? c 

7 

162 

CO 

7 

163 

27 

7 

166 

30 

7 

167 

31 

7 

168 

32 

7 

171 

33 

7 

172 

36 

7 

173 

37 

7 

176 

6 

3 

177 

9 

3 

178 

1C 

8 

181 

1 3 

a 

132 

14 

8 

183 

15 

8 

166 

18 

■3 

187 

19 

8 

188 

20 

H 

191 

23 

a 

192 

24 

8 

193 

25 

8 

196 

28 

8 

197 

29 

6 

198 

30 

3 

201 

7 7 
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APPENDIX C 


SAMPLE INPUT AND OUTPUT FOR THE PROFILE PROGRAM 
Input to PROFILE is as follows: 

V; 

(All input data cards are in free field format.) 

T 


li 

INITIAL HEIGHT 
INITIAL LATITUDE 

INITIAL WEST 
LONGITUDE 

FI 0.7 


MEAN FI 0.7 


AP 


DATE 


GREENWICH TIME 


LAT INCREMENT 


WEST LON 
INCREMENT 


HEIGHT INCREMENT 


Height of starting position, km 

Latitude of starting position (degrees, southern lati- 
tudes negative) 

West longitude of starting position (degrees, 0 to 360 
degrees, or east longitudes negative) 

-22 2 

Solar 10.7 cm radio noise flux (10 watts/m ) at time 
of calculations. Use zero if height does not go over 
90 km. Use 230 for design applications or consult Aero- 
space Environment Division (AED) of Marshall Space Flight 
Center (MSFC) for monthly predictions. 

81 day mean solar 10.7 cm flux. Use zero if height does 
not go over 90 km. Use 230 for design applications or 
consult AED, MSFC for monthly predictions. 

Geomagnetic index ap. Use zero if height does not go 
over 90 km. Use 20.3 for design steady state conditions, 
or 400 for maximum conditions, or consult AED, MSFC. 

Date for starting time of calculations (month, date, two 
digit year). Use month 13 for annual reference period. 

Time for starting position (hours, minutes, seconds). 

Use time corresponding to local time - 0900 for design 
steady state, or 1400 maximum conditions. 

Latitude displacement (degrees) between successive posi- 
tions (new lat = old lat + lat increment). Use zero if 
trajectory positions are to be read in. 

West longitude displacement (degrees) between successive 
positions (new long = old Ion + Ion increment). Use zero 
if trajectory positions are to be read in. 

Height decrease (km) between successive positions (new 
height = old height - height increment). Normal profiles 
are generated downward. If an upward generated profile 
id desired set height increment negative. 


CARD ? — CARD 1 


Number of positions to be computed, not including initial 
position. Use zero if trajectory posTtions are to be 
read in. 

Time displacement (seconds) between successive positions 
for automatically generated profiles (new time = old time 
+ time increment) 

0 for linear profile generated automatically internal to 
the program, or value equal to unit number (e.g. 5 for 
card input) for a trajectory with each position to read 
in. 

0 for no non-print output of atmospheric parameter values, 
or value equal to unit number to get non-print output. 

Lowest latitude (magnitude) for which only ordinary (first 
order) geostrophic winds are to be considered. Below this 
latitude second order geostrophic wind will be evaluated. 


GROVES INPUT UNIT - 

Unit number for tape containing Groves and stationary per- 
turbations (SCIDAT tape in Appendix A). Use any available 
unit number. 

RANDOM INPUT UNIT 

Unit number of file from which random perturbation data are 
to be read. If same as Groves input unit, these are read 
from SCIDAT tape. If card input, use 5. 

QBO INPUT UNIT 

Unit number of file from which QBO parameters are to be 
read. If same as Groves input unit, these are read from 
SCIDAT tape. If card input, use 5. 

4-D INPUT UNIT 

Unit number for 4-D input data tape. Use any available 
unit number. 

RANDOM OPTION 

1 means compute random perturbation output, 2 means do not 
compute random perturbation output. 

QBO OPTION 

1 means compute QBO output, 2 means do not compute QBO output. 

FIRST RANDOM 
NUMBER 

Initial number for random number generator used to compute 
random perturbations (can be any odd positive integer). 

Use 1 for standard design applications. 

NMC READ OPTION - 

0 means read NMC grid data from SCIDAT tape, otherwise 
these data are read from cards. 

4-D, P, D, T, 
SCRATCH UNIT 

Unit number for scratch file for 4-D grid profiles required 
in, computations. Use any available unit number. This nor- 
mally is a temporary drum file. 


C-2 


MAXIMUM NUMBER OF 
POSITIONS 


TIME INCREMENT 


TRAJECTORY OPTION - 


OUTPUT OPTION 


MIN. GEOSTROPH. 
LAT. 


CARD 3 


CSI 


NMC GRID POINTS 
SCRATCH UNIT 


4 - 



INITIAL PL. DL. 
TL, PS, DS. TS 


Unit number for scratch file to store NMC grid point data. 
Use any available unit number. This notirially is a tempo- 
rary drum file. 


Initial values of large scale and small scale random rela 
tive pressure, density, and temperature perturbations, 
percent. Use zeros for standard design applications. 



INITIAL UL, VL, 
US, VS 


Initial values of large scale and small scale random wind 
components, m/s. Use zeros for standard design appli- 
cations. 


* - Include card 3 only if random option = 1. 




% 


TRAJECTORY INPUT - 

TRAJECTORY BACKUP 
RECORD 


Use only if linear profile is not to be generated automati 
cally. Each record has time (seconds), height (km), lati- 
tude (degrees), and west longitude (degrees). 

Only if trajectory input is used. Same form as a trajec- 
tory position but with any negative height value. 


The trajectory input records are optional, in free field format. If 
included, use as many records (e.g. cards), as necessary. 

Input for the following sample output listing is aS follows: 

CARDl: 92.9, 28.45, 80.53, .0, .0, .0, 1,1, 75, 0, 0, 0, .0. .0, 2., 47, 0, 0, 

0 , 20 , 

CARD2: 3, 3, 3, 4, 1 , 1 , 1 , 0, 12, 13 
CARD3: 0. , 0. , 0. , 0. , 0. , 0. , 0. , 0. , 0. , 0. , 

A SUMMARY OF THE ORGANIZATION OF AN 
INPUT DATA DECK IS AS FOLLOWS 


Initial Data 

Card 1, as described at the beginning of this Appendix 
Card 2, as described at the beginning of this Appendix 
Card 3, optional, included only if random option = 1 


NMC Grid Data 


Optional. Include as card Input only If this Is not to be read from 
the SCIDAT data tape. 

Random Perturbation Data 

Optional. Include as card Input only if the random input unit is 5 and 
these data are not to be read from the SCIDAT data tape or some other Input 
file. Do not include if random option = 2. 

QBO Parameters 

Optional. Include as card input only if the QBO input unit is 5 and 
these data are not to be read from the SCIDAT data tape or some other file. 
Do not include if QBO option = 2. 

Trajectory Position Data and Backup Card 

Optional. Include if trajectory, rather than linear profile generated 
by the program is to be evaluated, and if trajectory option is 5. Trajec- 
tory data is on othjer file if trijectory unit is not 0 or 5. 

More Data of the Same Kind (Starting with Initial Data, Card 1) 

If additional trajectories or profiles are to be evaluated, the data 
may be input one set immediately after the other. The program is actually 
more efficient for such multiple runs if the month remains the same. This 
IS because as long as the month remains the same the SCIDAT data tape read 
can be avoided for each subsequent data set. 

OUTPUT OF PROFILE IS AS FOLLOWS 

JULIAN DATE - Computed from input date, set equal to zero for month 13 

(annual average) 

INITIAL STAND — Computed for initial position on input data 

ARD DEVIATIONS 
IN P, D, T, U, 

V FOR LARGE 
SCALE AND SMALL 
SCALE 

C-4^ 



HEIGHT, LAT, LON, Position and time where atmospheric parameters are eval- 
TIME ■ uated 


UNPERTURBED PRES- Computed from Jacchia, 4-D, or Groves - plus - stationary 
SURE DENSITY, - perturbations, depending on height. 

TEMPERATURE AND 
GEOSTROPHIC WIND 
(monthly mean 
values) 


TOTAL PRESSURE, Monthly means plus random perturbations and QBO pertur- 
DENSITY, TEMPE- - bations 
NATURE, AND 
WIND 


THERMAL WIND 
SHEAR 


From thermal wind equations using finite differences of 
Jacchia, 4-D, or Groves - plus - stationary perturbations, 
depending on height. 


MEAN VERTICAL From mean isentropic surface slopes 

WIND 


PERTURBATION _ Stationary perturbations, QBO perturbations and amplitudes, 
VALUES " and random perturbations and magnitudes for the small scale 

(S), large scale (L), and total (T) perturbations. Per- 
turbations are those which are added to monthly means to 
produce total results output. 


Following is a listing of sample output from the GRAM program. Initial 
lines of output are merely listings of the input data for easy reference. 
These listings are provided to indicate formats and kinds of input and output 
data. For a listing of the input cards for these sample outputs, see earlier 
in the Appendix. 
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global BEF£kLNCE ATMOSPHERE • NOO 2 


INITIAL HEIGHT = 92.00 tCM 

F1U.7 = 0.00 

OATE s 1/ t/75 
LAT increment = 0.00 BEG 

maaimum number of positions = 
trajectort option = 0 


<*7 


GROVES INPUT UNIT = 3 

G-Q INPUT UNIT = L 

FIRST RANDOM NUMBER = 1 

NMC REAO OPTION = 0 

NMC GRID POINTS SCRATCH UNIT = 13 


INITIAL P.O.T - 

initial U.k- = 


initial P.O.T = 
INITIAL U.V = 


O.Ci V. 
U.OO M/s 


0.00 X 

0.00 M/s 


initial LAT = 2S.I.S DES 
mean FIO.T = 0.00 

GREENHXCH TIME s St Ot 0 
MEST LON INCREMENT : 0.00 OEG 

TIME Increment = o sec 
OUTPUT OPTION = 0 

RANDOM INPUT UNIT = 3 

RANOOH OPTION = 1 

VO P.O.T DATA SCRATCH UNIT = 12 
JULIAN OATE - ZAAEAtL.O 


INITIAL NEST LON s 
AP s 0.00 

HEIGHT INCREMENT * 

NIN CECSTROPH LAT = 

QBO INPUT UNIT s 3 
Q90 option = 1 


00.53 OEG 

2.00 KH 
20.0 


G.Jw X 
O.OU M/S 


0.00 X 
0.00 M/s 


o.os % 

0.00 X 


SIGMA P.O.T : 11.13 X 

SIGMA U.V = AT. 48 M/S 

SIGMA P.O.T = 7.53 Z 

SIGNA U.V = 31.35 M/S 


11.06 Z 6.50 Z 

93.93 H/S 

11.89 Z 7.81 X 

62.02 M/S 


large scale 
small scale 


INITIAL UOL.VQL = -10.39 X -16.73 Z 


INITIAL UOS.tfOS s -10.71 X -9. IS X 


•• PERCENT DEVIATIONS FROM 1962 US STANOARO ATMOSPHERE APPEAR BELCH PRESSURE. DENSITT ANO TEMPERATURE VALUES •• 
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.8 

12. 

9. SIGL 







-.5 

-.0 

-.5 

-23. 

-12. RANT 







1.0 

1.1 

1.1 

13. 

12. SIGT 

.8795*05 

V 65 65*00 

258. 

3. 

•13. 

3.6 

.3 




.27 

1.8Z 

-.6Z 

2.0Z 




0.0 

0.0 

0.0 


SP 







0.0 

0.0 

0.0 

0. 

0. QBO 







0.0 

0.0 

0.0 

0. 

0. HAG 







-.8 

.5 

-1.3 

0. 

-9. RANS 







.5 

.7 

.7 

3. 

6. SIGS 







-.6 

-.2 

-.8 

-17. 

-8. RANL 







.7 

.7 

.7 

10. 

8. SIGL 







-1.8 

.3 

-1.7 

-15. 

-16. RANT 







.9 

1.0 

1.0 

11. 

10. SIGT 

.6295*05 

.0075*10 

272. 

18. 

-2. 

3.5 

.3 




.27 

2.1Z 

-t.5Z 

3.6Z 




0.0 

0.0 

0.0 


SP 







0.0 

0.0 

0.0 

0. 

a. QBO 







0.0 

0.0 

0.0 

0. 

0. NAG 







-.0 

-.3 

.3 

-1. 

-6. RANS 



C-IA 



2.00 23.0S ao.53 .a04£*OS .996e».90 2St. 6. 

0 l.lt -I.IX 2.2Z 


0.00 20.95 80.53 .102E«06 .123E>01 28B. -3. 

0 .02 .72 .12 









.5 

.6 

.7 

a . 

5* 

SI6S 







.2 

.2 

.0 

3. 

i * 

R8NL 







• 6 

.7 

.7 

9. 


SI6L 







.2 

-.1 

.3 

2. 

-5. 

R8NT 







.7 

.9 

1.0 

9. 

8. 

SICT 

2. .a08£4.0S 

.990E»00 

289. 

5. 

2. 

3.5 

1.0 





-.00 

1.62 

-1.62 

3.32 . 




C.O 

0.0 

0.0 



SP 







0.0 

0.0 

0.0 

0. 

0. 

OBO 







0.0 

0.0 

0.0 

0. 

0. 

HOG 







.2 

-.6 

.8 

-3. 

-3. 

RONS 







.9 

.0 

• 6 

2. 

9. 

SIGS 







.3 

-.0 

.3 

2. 

3. 

RONL 







.5 

.0 

.8 

7. 

5. 

SIGL 







.5 

-.6 

1.1 

-1. 

0. 

RONT 







• 6 

t.l 

1.2 

7. 

7. 

SIGT 

0. .102E*06 

.129E901 

288. 

“6» 

5. 

5.6 

1.9 





.19 

1.12 

1.22 

-.12 




0.0 

0.0 

0.0 



SF 







0.0 

0.0 

0.0 

0. 

0. 

OBO 







0.0 

0.0 

0.0 

0. 

0. 

HOG 







-.6 

-.0 

-.5 

0. 

1. 

RONS 







.3 

1.9 

1.9 

1. 

3. 

SIGS 







.9 

.5 

.3 

-3. 

9. 

RONL 







.9 

1.9 

1.9 

5. 

9. 

SIGL 







.3 

.5 

-.2 

-3. 

5. 

RONT 







.5 

1.9 

2.0 

5. 

5. 

SIGT 



APPENDIX D - PROFILE PROGRAM LISTING 


Following Is a listing of the Global Reference Atmospheric Model 
(GRAM) - Mod 2 . Sequence numbers containing a three character subroutine 
code and a five digit number appear on the right of the printout. 




C 

c 

c 


s’-. 3 -oJ^: *v- Ajju:>r 

CCMNCN/C-/ J'JNl < 3 c) ,D(lc.2£) ,T(l6,cc) *SF(ie*a6) 

CCf»'”'C"J/ACJ':0.-l/A ( i.b» c ) •» 1(26) » X(2t), KOUrjT 

n:^;:f.2IC\ QQ(L.-j), UC(t6). VC(26)» WCf2&)» C(36)» V(26)f 

( - 6 ) 

£ 2 S''|--nCN'^ 


0 

1 

ro 


H£ is TA2 S’jKFaCS LcV; 
Aul data WAlU-S flEiOVf 

2 = t « 1 ? u 
MAy.iT = :. 

KS‘1A>=^- 

HSJ = MS 

T ^ (I- o . L " . : . » MS J = U . 

JJ=IN'T(MS J + ? .) 

STS5T=i . G- 

iss=: 

CC.>)ST = 2r7c S./9M. ,ac5 
N-^c 
llt~=0 

0C( 1» = S0R^ (3F(<QUNT,l-» ) 

VC (1 ) =30*^1 (SOfKOUNT, 1) ) 
kC( 1) =SQRT C SKKOUNT, 1) ) 

00 5 I=JJ,N 

UC(I) =3QKT(SM(K0'JrJT, I) ) 
VC(I ) = 50-T (S'JCOUNT, I) ) 

" wc( I) =soRT ( s r(K0'iNr, I) » 

N K - M + i 

e SFTS; SSADRflT’J'^c- FACTOPS 


SL.'RFACE L-VIL APE IN i KM INCREMENTS 


^0( i) =Sw5r* ( f\ 0AT (INT (MSjil . ) ) -HS) /(CONST^rCKOUNTvl) ) 
OQ(i) =?GD .♦ (FLOATdNT (MSj + i. I » -HS ) / ( CGNST*T ( KOUNT , JJ ) ) 




^ 3 


IH 

c • • • • 


20 


OQ(i 
LC IE 
ip=r+i 

«=n< I) =5c J ./< CQN5T.*T( KG'iNT, I) ) 
QCf I) =5l 0./ ( C0NST»T( KGUNT, IF) ) 
GO rn 5P 
f\ M- 1\' — 2. 

NP=M+1 

00 T=1*2S 

U(I) =UC(I)»UC(I) 

V(I» =VC (I)*VC(I» 
W(I)=.'/CfI)*WC(I» 

CONTI NUc 

.IMTiALIZE A(I,J) 

DO 2l 1=1. u& 

DC 2C J-l.c 
A (I . J) = . . 

.SFTS J= COEFFICIENTS 
IZ = 0 

bO I=i.N'1 

IF(I.GT.l.AND.I.Lr.JJ) GO TO 35 
AW=i./S=^K0'i^^T. I) 

FW=i , /SC (KOi’NT. I) 

CW = 1 . /ST fKCm, 1 1 


ADJOOiOC 
ADJCQ2CC 
AOJC03CC 
ADJOOaOG 
ADJ005CC 
ADJD06CC 
A0Jou7CC 
ADJGU'^GC 
AOJOOgGC 
ADJllOCC 
ADJflllOr 
ADjCi 2 oe 
AOJ013Q0 
AOJGImOG 
A0JC15CC 
ADJQl&uC 
ADJQ17Ci 
ADJ013CC 
AOJ019C0 
AOJ02000 
A0JC21CC 
AOJG22CG 
ADJG23CC 
AOJ02i»00 
AOJC25CC 
AOJ026GC 
AD JO 27 CC 
AOJ223QC 
ADJ0290C' 
AO JO 3 0 CC 
AOJ031D0 
A0JU32CC 
ADJQ33CC 
AOJ03ACC 
AOJC35CC 
AOJC36GO 
AOJG37CC 
A0JQ33CC 
ADJ039CP 
AOJ0 40CC- 
AOJ041CC 
AOJC420C 
AOJQ43CC 
AOJ0440C 
A0JG45GD 
AOJG4eGO 
AOJD47CO 
AOJ048GG 
AOJt.»gCC 
AOJCSGCQ 
AOJC51CC 
ADJ052CC 
AO JC 33 G C 
A0JG54CC 
A0J355CC 
AO JO 56 OC 


ORIGINAL ;\?/aGA ^ 


4 


0 

1 

u> 


C. 

C. 


iM=r-i 

I=:=I+2 

IF i==jj 

I r - 1 1 + i 

A wi-l . /£C (KO-JtiT , I=>) 

FW1=1 ./SD(KO'J-4T» r-J 
CK1=1 ./£T (K JU'NT, IF) 

IFM.LQ.I) nj TO 

A (12,-) = - (1. -TQ< IM) )»(l. + FQfI) )/flW+(l,/9W+l./CW)»=Q{r»»QG(I»1) 

2F A (I2,i) = ( C . - 13( I) ) ♦♦2)/AWi-t-( (l.-t-cQd) » *♦ 2 ) / AVM ( i „ /3 W+i . /CW) 

? ♦(PQ(H**2) +(i./'3Wl+l./CWl)*QQ(I)**2 
IF(i.iO.^F) GO JO 5C 

A(T2,2)=-fi .-QQ(I) )*(l.+PO(IF) ) / A W 1 <■ ( 1 . / 1 Wi + 1 , /CWi) » 

T F.j(IP) * j T) 

f: p(i2) =li ( r=) - j(i ) - (U( I) -V ( I) + W (I) )»po (I) - (ij ( i°) - v( icj + w(ifj )»qg(ii 
;5 CCfiTIMi: 

CALL rJlAC^-Cf 12) 

. ...finjs co-= actions 

AV = 1./S = (<0'J‘4T,1) 

^W=l . /3C (KOUNT, 1 ) 

CL = 1./ST(KC'JNT,*) 

uc(i) =sqp-"(U(4.» +x(i)*(i.+pq( 1 ) »/aw) 

- VC(-)-SQF^(V(i) -X (i» *P0Ci)/3WI 
^^C(1) = SCRT(,^ (1) ♦X(l) ^POd ) /CM) 

AX = 1. /SP (Ku'JNF, rj) 
pK = 1./SO<KO'INT,N) 
cw=: . /ST (KUU nT, N) 

t-r (N) =SQPT(il (N) -X f 12 ) *(1 .-QQ (NM) ) /aw) 

V'C('J) =SOFT { V(N) -X (12 > ♦rjTO.'M) /'’M) 

WC(N) =SPR^ (W(r>l) +X (12 } ♦m(Ni:i1 /CM) 

X 2 — 1 

nc i=jj, MM 

X 2 = J2 •♦■1 
I2M=I2-1 

A W = l. /pF (KOIj. •')(,: ) 

GM = 1./S0{K0'JMT, I) 

CW=i./3T (XUMNT, I) 

IF=I-- 

lF(i.r Q. JJ) IM = 1 
UC(I)=AP3(I)( I) 
l'C( I ) = SQPT (UC(I) ) 

VC(I) =A3S(V( I) 

vc( I) =sopT('yc(i) ) 

WC(I)=APS(W(I) 

^0 WC( 1) =SQPT(WC(I) ) 

. .. .Grrs AJJLSTE 3 VALL'LS 

, ALJU5TS OM TRIANGLE IMEQUALlTrcS 
FF K = u 

DO ^ I-l.N 

IF(l.GT.l.AND.I.LT.JJ) GO TO 6-6 
AU=UC ( I ) 

A V=s/C f I) 

AF=MC( D 

AMA5f=AMAXl ( A!|,AV , AM) 

E2 = 21* AMA :< 


^^ ( - X ( 1 2 M ) ♦ ( 1 . - 0 Q ( I M ) I > X ( 1 2 ) ♦ ( 1 . ♦ F Q ( I ) ) I /AW) 

-(X'(I2M)»QQ(IM)-»-X(l2)*pn(I) )/BW) 

♦(X (I2M)*GQ (IM) +X (12) *FQ(I> ) /CM) 


AOJ057CC 
AOJCSaGG 
AOJG39CC' 
AOJ06CCC 
ADJC61CC 
AD Ju 62 CG 
ADJ:63CC 
AO JX 64C C 
ADJOeSCC 
ADJC66CC 
A3JC670C 
AOJC&3GC 
AOJO&9GO 
ADJL7iiCC 
AOJ071C0 
AOJ072CC 
AOJC73CC 
A0JG74CC 
AOJG75CO 
AOJC76CC 
AOJ0770C 
AOJ0780n 

Aaj07gcc 
AOJD300G 
AO JO 31 OC 
AOJuaZGG 
AO JO 93 GG 
A3J0940C 
AOJu 3500 
AOJC36GC 
AOJG37Ct 
AOJG880P 
AO JO 89CC 
AOJ0900G 
AOJG9100 
AOJC92DC 
AOJ093CC 
AOJ094CC 
AOJC 950C 
A0JQ96CG 
AOJC 97 OC 

Aojogeoc 

ADJ099CC 

AOJIOODC 

AOJIOICC 

AOJ102GQ 

AOJiOJOG 

AOJ104GC 

AOJ1050C 

aojioecc 

ADJ10700 

Aojiaeoe 

AOJiOgcc 

AOJllOCC 

AOJlllGC 

AOJli2CC 


O 



(KG'J^'T, I) 

Bt'-.ir ( < C'J NT , I) 

C«=5T CAJlJNTf I) 
cc* =/’^U+ 
riv' = a 

I F ( C ^ 5 T « . • ) GO TO & i. 

CG-= ( fiU + AV-^ M-FF) /Cl V 
^U=F<'-COF^iW 
A V=,:V-COF*qw 
^ f T A f-- 4- 0 0 F ♦ c N' 

GC ^0 6F 

i e: ecF- AL'-£ v*AM-iE 

IF ( CGF.GT.i, , ) GO TO 6£ 

CC“ = (AU-iiV + AM-EF)/OI\/ 

AL= AU-CO=’^AW -i 

^\/= AV + COF^O.; 

AH=AF-COF»CW 
GL TC 

!' b£ CCF=-AU + AV-^AM-£E 

IF( CCW .GT.u . ) Go TC fee 
CGn» = (-AU + AV-*-AM“£F) /OIV 
Al'= AU + COR*AW 
A AV-COR^OIn 
A r=AF-COR-^CW 
m K-K-H 
FF UCfr>=A(j 
V r ( I » = A V 
NC( I) =AN: 

*? o° CC-NriTUi^ 

)( =i< 

ICO IF((ITiF.CQ,j>.Of^,(.<MfcX.ME.v)) GC TO iiO 
GO ro 11£ 
llG ITE-r = ITFR + l 

IFdTER.LF.-^flXIT) GO TO 12 
11? IF CSS.NE.l) GO TO 990 
llA ITEF=1 
I5S=2 
V"A = VC {2 ) 

KTA=WCfl) 
rc 12'- I = JJ.NM 

IF ( I ,:.0. JJ) IN1 = 1 
VT3=VC(I) 

W'^D = WC(I> 

VC(I) =(VC (I +3 )+2.*VT3+VTA»*j.25 
FiC( I) = f WC f I + l) +2 .*WT3+WTA) ♦ j .25 
VTA=VT9 
WTA = Vv-^9 
ICG CCOTIM’!: 

GO TO 12 

c. . . . .calculatl thc co = f- 2 gted variances 

'99^ DO ILlC 1=1 . N 

IF( I .GT.I.ANO.I.LT.JJI go to lOiO 
SFfKCUNT.I) =UC(I)»*2 
SCCKC'JnT,!* =VC(I)**2 


Aojiisoe 
AOJili. 0 C 
A 0 JH 5 CC' 
AOJllfeC'C 
AOJ 117 C 0 
AOJliaCC 
ADJ 1190 C 
AOJ 120 CC 
ADJ 121 CC 
ADJ 122 CC 
AQJ 123 CC 
A 0 J 12 ^CC 
AOJ 125 C 0 
A 0 J 126 CC 
A 0 J 127 CC 
ADJi 2 eGt: 
ADJ 129 C 5 
ADJ 1300 C 
A 0 Jl 3 iCC 
ADJ 132 CC 
AOJ 133 CC 
A 0 J 134 rc 
AOJ 135 CG 
A 0 J 136 CC 
AOJ 1370 C 
AOJ 1330 C 
AOJ 139 CC 
AOJ 140 C 0 
AQJ 141 C 0 
A 0 J 142 CC 
AOJ 1430 C 
ADJ 144 CC 
A 0 J 145 CC 
AOJ 1460 G 
A 0 J 147 CC 
AOJ 14 SCO 
AOJ 149 D 0 
AOJ 15 COO 
AOJ 1510 C 
AOJ 1320 G 
AOJ 153 GC 
A 0 J 154 Cr 
ADJ 4 . 55 PC 
AOJ 156 C 0 
ADJ 15 TQC 
AOJ 1580 G 
A 0 J 139 CC 
AOJ 160 CC 
ADJifeltO 
A 0 J 152 CG 
ADJ 153 CiC 
A 0 Jl 64 Cn 
A 0 J 165 CC 
A DJI 6 6 eC 
ADJ 167 CC 
AOJ 1680 C 







♦ 





(<0U , I ) -WC( I ) 

rr-j''lN'' - -V' - 

crriJf^N 

e r.:) 






SUfiPOUTiNL C^^£C< 

C 0 M « 0 N / C H K / ^ ^ , 5 J , 5 H 0 ( V f 4 , 3 ) , N O f 2 \ 

CCM«ON/HINCON/OGH,FCGRY,OX5.0Y5 
COMMON/CHIC/LAC16I fM3(2) ,TWSYM 
N P ( 1 1 = 0 

MB (21 = 0 
CALL GROUP 
NS=G 

NP = 1 

IF(NG{l>.EQ.O.ANO.NO(2l..£n.CI GO TO iOOQ 
DO 64C KL=i.2 

IF (NO(KL) .eO.C) GO TO 540 
450 CONTINUE 
NNR=4»S|P 

IF(NO(KL) .LE.NNR) GO TO 5C0 
NF=NP+1 
GO TO 450 
500 CONTINUE 
M = NP 

Jl=NO (KL) -(NR-1> *4 
SHI =6. 

SH2 =6. 

OF = P(Il,Jl,2) - P(Ix,Jl,l) 

IF (DF» 510.520*510 
510 SHI = ABS (P(I1.J1.2» /0=») 

520 DP - P(I1,J1.2J - P(I1*J1.3) 

IF (CP) 530.5-.G.530 
530 3H2 = AOS (P( li.Jl, 2) /DP) 

540 IF(SH1.LT.4.0.0R.SH2.LT«4.U) GO TO 640 

IF(SM1.GT.9. t3.0R.SH2 .GT.g.O) GO TO 640 
NP = 1 
NS=NS+1 
640 CONTINUE 
PETUPN 

1000 IWSYM = 

RETURN 

END 


CHKCOtOC 

chkooedo 

CHKC330C 

CHK004CC 

CHK005CO 

CHKQyeCe 

CHK00700 

CHKC0800 

CHK00900 

CHKilOOO 

CHKOllOO 

CHKC1200 

CHK0130C 

CHKC14C0 

CHK0150C 

CHK016C0 

CHK017C0 

CHK0180C 

CMK01900 

CHK0200C 

CHKG2KC 

CHK0220C 

CHK02300 

CHK02400 

CHK02500 

CHKC260C 

CHK027CC 

CHK02800 

CHK029G0 

CHK03G0G 

CHK031PC 

CHK03200 

CHK0330C 

CHK0340C 

CHK93500 

CHKP36C0 

CHK03700 






r:t»iaB*ji^ r^uvserasrrjw Jr;T;»e . ‘ ' s 


0 

1 


SU3^0UTIM£ CO-<LAT (fl,3tC,D,S:,F,G,H,AI,AJ, AK,SPi.SP2,301*SCc,STi. 
1 ST2,SUi,SU2 ,SVi,SVE.U0i,U02# V0i,V02..Pl.PI.RV) 
IF(SD1»ST1*SD2*3T2.GT.3.) GO TO 5 

C DEFAULT VALUES AVOID OIVISICN 3Y ZE^O 

IF(SD1.LE.0. ) S3i=O.OCl 
lF(bTl*L~*0«) Six~C»0GL 
IF(502.LE.O. ) SO£=G.0Cl 
-IF(ST2.L£.0.) ST2 = u.0Cl 
5 CONTINUE 

IF(APS(T01) .LE.u.) TDl = G.Gai 
IF (A8S fUDl) .LE.^.) UDi = G.GCl 
IF <Ae5(VC^).LE.O.) VDi = O.UOl 
IF (A0S(SU1) .LE.O.) SUl = C.OCl 
IF (A3S(SV1) .LE.O.) 3V1 = 0.001 

IF (ADS(U01> .GE.l.) UDI = 0 . gO*UQi/A3S (UD1» 

IF (A8S (VDIJ .GE.l. > VDI = 0 . 99*V 01/ASS ( VOl » 

A=RC*SD2/S01 

P=SCL»SQRT(i-;?0»RO) 

Tb^=(SP2*SP2-SO^*SD2•S'r2*Sr^^/(2*SD^*ST^) 

TDl=(SPl^SPi-5Di*S0l-STi*STl)/(2*SCl*STl> 

IF(ABS(T02» .GE.1.0) TC2 = 0 . 99<^T02/A8S (T02) 

IF(APS(TC1) .GE.i.O) TD1=C.99*T01/APS(TD1» 

C=(ST2/ST1) (i-T0 2*TDl)/(l-TDl»TDl*RT*RT) 

C=(RT*ST2*ST1-C*ST1*ST1» /(A*T01*SD1»ST1) 

t= ST2*ST2-C*C*ST1*ST1-C»C»S02*S02-2*C*0*RT*TC1*ST1*SC2 

IF(£.GE.O.) GO TO ID 
E=0 . 

tC E=SOFT(E» 

F=(SU2/SU1) * {RV-R0*U02*UD1I/(1-RD»R0*U01*UD1» 

G=(RV*SU2-F*SU1) /(R0*U01*S02) 

H= SU2*SU2-F*F*SU1*SU1-G*G*SD2»302-2*F*G*RD»U01*S02*SU1 

IF(H.GE.O.) GO TO 15 

H = 0 . 

15 M=SORT(H) 

AI={SV2/SVi) *(RV-RO^-V02*VD1)/(1-RO*RO*V01*V01) 
AJ={RV*SV2-AI»SV1) /(RD*V01*SD2» 

AK= SV2*SV2-AI*A I*SV1*SV1- Aj*AJ»SD2*302-2*AI*Aj*RO*Vdl*SQ2J 

1F(A<.GE.0.) GO TO 25 
AK=0 . 

25 AK=SORT ( AK) 

RETURN 

END 


COROOICC 
CORO 02 GO 
COR003CC 
COR004CC 
COR00500 
CORG06C0 
COROflZCP 
coROoaco 
CORC090C 
CORO 10 CD 
COROllGC 
COR012C0 
CORC13C0 
CORGl^CO 
COR0150C 
CORC16CC 
COR0170C 
CORG18CC 
COR01900 
COR0200C 
COR02100 
COR02200 
COR0230C 
CORCa^QC 
COR025CC 
COR026CC 
COR027C0 
CORC26GC 
COR0290C 
CORD 3000 
COR0310C 
CORC32CC 
COR033CC 
COR034CC 
CORC35GC 
CORC36CC 
SViCORG370C 
eGRC38CC 
CORO 39 OC 
COR0400C 
COR04100 
CORC420G 


J, * 

SUB -GUT INF ai^5.£..Q..(-NJ- 

C AII,J)=DIflG. TE^.MS, I = 90W UO., J = OiaG. NO. 

C B(I)=RIGHT SI-3£ terms 

C N=N3. OF =OWS 

C K=NO. OF PORTER DiaGONALS. M=<+1=IN0FS OF PRIN. DIAG 

C EKH-TOTAL MG. OF DIAGS. 

C X (I) ^SOLUTION 

COMMON/AOJCOM/A ( 26.3 I , 8(26). X(26> 

K = 1 
M=< + i 

DC 3C L=i.U 
alm=a(l.m) 

ACL.MI^l. 

IF(L.EO.N) GO TO 15 
I2 = -''INj (K.N-L) 

PO 1C 1=1.12 
mfi=m+: 

10 A (L. M = I) =A (L .MPn /ALM 
15 9 (L ) =8 (L ) /ALM 

IF(l.EO.N) GO TO 30 

no ^5 1 = 1,12 

L'^I=L + I 

FACT=:A (LPI, M-I» 
r-0 2C J=1,I2 
MJI=M+J-I 

2 0 A =A -A (L , M4 J| *FACT 
25 y (L~I»=8(LPI>-3{L)*FACT 

3 2 C 0 T T N U E 

X(N)=B{N) 

NM = N-1 

00 5C L=1,NM1 

nml=n-l 

Sl!M = C. 

I2=MIN0 (K,L) 

DC AC 1=1,12 

AQ SUM=SUM+a (MML,M4l ) *X ( NML+I ) 

53 X(NML>=BrNML)-5UM 
RtTUFN 
END 


ai A 001 00 
□IA00200 
OIAC0300 
OIAOOhGC 
DIA005QO 
OIA0060C 
aiAC07C0 

oiAooacc 

OIAC090C 

DIAulOCC 

OIAOllOO 

OIA0120C 

OIA013CC 

OIAOIACG 

OIA013CC 

□lAOieCC 

DIAG17CG 

OIAOiaOD 

□IA019CC 

OIA020CD 

QIA0210G 

OIA022CC 

OIA023C0 

OIA02400 

OIA02500 

aiA026CQ 

□IA027GC 

OIA02eOQ 

OIA02900 

OIA030CC 

DIA031CC 

OIAC32CO 

OIA033G0 

OIAC340C 

□IAC35CC 

OIAC360C 

OIA037C0 

OIA03800 

OIA039CC 





SU3f<0UTINE Fair? (^>G, uG, TO, <=j, qJ, TJ, IH, D, T, 

» OPYG, HPXJ, QPyJ» C^X, 0°Y, OryG, OTXJ, OTYJ, CTX, OTY) 

C.....F/I-S ScTKtzN GRGYtb AN'* JACChld VALUilS 90 LZ HEIGHT L£ 115 KM 
CIM-GSION CZ(5) 

C..... failing VALUES 

G AT A CZ ‘-“tU«0/ 

C HEI3FT INDEX 

1 -flH - fi5»/5 

C GF0VE3 FAIRING COEFFICIENT 

C7I = CZ(I) 

C JACCHIA FniFiNG COEFFICIENT 

bZI = 1.0 - CZI 
C FAIREO TEMPERATURE 

T = TG*CZI + TJ^SZI 
C FAI-IO FRF.bSU^’E 

P = xX° (ALOG (PG ) *CZI + ALOG (PJ)*5ZI» 

C FAIRS C DENSITY 

0 = EXPCALOG fOG) *CZI + ALOG fCJ)*SZI> 

DPX = DPXJ 

c df/dy for geostrophic winds 

OPY=DPYG*CZI+OPY J»SZI 
CTX = DTXJ 

C Cr/CY FGF THERMAL WINDS 

DTY = GTYG ♦ CZI + OTYJ ♦ 3ZI 

RETURN 

EM3 


FA ICO ICO 
FAIOG20C 
FAIC03CC 
FAIGO^iCG 
FAI00500 
FAI006C0 
FAIOuTOG 
FAIC08CC 
FAI009C0 
FAIOiaCC 
FAIOIIOO 
FAI012CD 
FAI013CC 
FAIOIACG 
FAIC15G0 
FAI016CC 
FAI017G0 
FAIDieOC 
FAI019CG 
FAia2000 
FAIQ21G0 
FAI0220C 
FAI0230C 
FAI02AC0 
FAI025GC 
FAIC26CG 


o 


4 


¥ 


SU=^^CUTIN£ G.£m4T 

.GLi^-_-ir£S NG = ^ Ok Ic 40 PKOFIL£S -^,D,T flMQ SIGMAS S^». SO, ST AT 
GKIO OF LailTUOrS ANO LOMGiniC'ES GLATtGLON. CURRENT LATITUDE* 
LGN'GITUDE -CLAT, CLGN. PREVIOUS L AT ITUOE , LONG ITUD£ = PLAT ♦ PLON. 

»1^/^ A r' t ^ m A r A d A ^ m . ^ ^ S A A A A 


T HN .lOA ,IYP ,Hi, PHIIR ,TH£T1R»G,RI , Z, °HIP, THETR.FIO ,FlO-3,AP, 

1 IHR,MIN,NMOR£t OX, HL ,VL. OZ» E,E f>S, I OPa, look, DUMMY (20 
CCM'^0N/F3TC0M/IJ4, MONTH, 10 3R, PG (18,19) ,TG(18,19),DG(ie,19), 

1 PSC(»,iu,i2),OSP(S,lG,l2),TSP(8,lO,12) 

2,PAQ(1Z,5»,DAQ{17,5>,TAQ(17,5), 

3Pni(17,5) , ODD (17, 5) , TOD (17, 5) , PR ( 2 0 , 1 C» , DR ( 2 0 , 10 ) ,TR ( 20 , 1 0 ) , 
4UAD(17,5) ,VAKl7,3),UCQ(17,5) ,7DQ(17,5) ,UR(25,10) ,VR(25,10) , 

5 PC, on, TQ,UD, 7 0, =’OA,DOA,TQA,UA,VA,IOoQ 

* ,PLP(25,lu) ,0L 0(25, 10) ,TL'i( 25,10 ) ,ULP( 25,10 ) ,7LP(25,lC) ,UOL (25, 

* 1U),VDL (25,10) ,UOS( 25,10) ,7 OS (2 5, IQ) 

C0MM0N/ADJC0M/0UM(12 0) ,KGUNr 

■ LX — t 


LOOK=0 

F = 0.017455293 
NG = in 

CX = PLON - CLON 

. LONGITUDE DISPLACEMENT FROM PfiEVlOUS T 
OY = CLAT - PLAT 

.LATITUDE CISPLACEMENT FROM FRE7I0US TO 
IF COY I 2 0,10.20 
(DX) i.5,12,15 

5^ = 0 


) CURRENT POSITION 
CURRENT FOSITICN 


GO TO -4 0 

TUETA =160. ♦ 3IGN(9C.,DX) 

GO ro fC 

THtJfi = ATAN (0X/0Y)/F 
IF (OY»G’'.C.) theta = THETA ♦ 13G. 

IF (TFETA.LT.O. ) theta = THETA + 360. 


FOR 110 THRU 


ICC 

110 


,tr inci« - iniiiM -r cco. ^ 

.TMETA = AZIMUTH ANGLE OF TRAJECTORY, USED TO ORIENT LAT-LCN GRID 
K = rNT((THETA ^ b7. 5)/45.) 

irX'EX USEE IN COMPUTED GO TO FOR 110 THRU 160 
IF (K.GT.'*) K=K-5 

^ORTH polar grid 

IF (CLAT.GT.75.0.AND.K.GE.5.AND.K.LE.7)GO TO 200 
SOUTH POLAR GPU 

IF (CLAT.LT.-75.0. ANC. (K.GE.7.0R.K.LE.3) )GO TO 20C 
.INITIAL ESTIMATE OF REFERNCE LATITUDE (LOWER LEFT GRID PCINT) 
LATO = 5*INT(CLAT/5. ) 

IF (CLAT.LT.C.) LATu = LATO - 5 

.INITIAL ESTIMATE OF REFERENCE LONGITUDE (LOWER LEFT GRID POINT) 
LONG = 5* I NT (CLON/ 5.) 

•ADJUSTS ^ATC.LONQ ACCORDING TO DIFCCTION OF TRAJECTORY AZIMUTH 
IF (K.GT.G) GJ TO lOO 
LATO = LATO - 5 
LONO= LONl 10 
GO TO 19G 

'60 TO (11G,12J,13J,14C,15C,16U,170,19C) ,K 
LATO = LATO-13 
LONG = LONu ♦ 10 


GEN0310G 
GEN(] j 2CC 
GEN0Q300 
GEN0O40C 
GEN005CC 
GEN0Q6OG 
GEN007CO 
GEN008C0 
GEN009CC 
GENCIOCC 
GENOllGC 
GENC12C0 
GEN013(}0 
GEN014CQ 
GEN0150C 
GENC1600 
GEN017C0 
GEN0180C 
GEN0190C 
GEN02000 
6ENQ210G 
GEN0220C 
GENC23G0 
6EN0240G 
GEN02500 
GEN0260r 
GENC27GC 
GENQ28C0 
GENQ29GC 
GEN030CO 
GEN0310C 
GENG32G0 
GEN033Q0 
GENO 34 0 C 
GEN03500 
GENC3600 
GEN0370C 
GEN038GC 
6EN03O00 
GENC400C 
GENC410C 
GEN042CC 
GEN0430C 
GEN044C0 
GEN0450Q 
GEN046GC 
GENC470C 
GEN04800 
GENO 4 9 CO 
Gb NG 50 0 C 
GEN0510C 
GENC52CC 
GEN05300 
GENO 54 00 
GEN0550C 
GEN056CO 


ro TO 

120 LATu 5 LflTU-lJ 
LOMU = LONC+13 
GO TO iqc 
133 LATd = LflTO-5 
LCMC = LOMC' + li) 

GO TO 190 

lAO LONO = LOKC+15 
Go To ’ Qf> 

1?0 lCMu =*LO^u+x 0 
GC TO 190 
160 LONO = LO^0+5 
GO TO 190 
17C LATO = LATC-5 
LOr.'o = LONu + 5 
GC TO 190 

16G LATC = LATO-lO 
LONl = LOKO+5 

19C IP (LUNC .GT. 3601 LONG = LCNu - 360 
DO 195 1=1.4 
112 = I+12 
DO 195 J=I.I12,4 
GLAT(J> = LATu ♦ i.25*(J-I) 

C. ... .LATITUDE, LONGITUDE GRID AT 5 DEGREE INTERVALS 
195 GLON(J» = LON3 - 5. * (I - 1) 

GO TO ^00 

c polar grid 

e:c mg = D 

CO 210 j=i,a 

POLAR GRIG latitudes 1-8 = +75 <N) OR -75 (N> 

GLAT(J) = SIGN(75..CLAT) 

C.....GOLAF GRID LONGITUDES 1-8 AT 45 DEG INTERVALS 
210 GLONTJI = 45.»(J-1» 

C polar GRID LATITUDE 9 = POLE +93 OR -90 

GLAT(9» = SIGN{gC.,CLAT) 

C polar GRIC LONGITUDE 9 = C 

GL0N(9> = 0. 

C GENtPATES lb PROFILES (OR 9 PROFILES FOR POLAR GRIO» 

4CC CALL GRI04D 

DO 6C; 1=1, NG 

CH£CK=o(I,26>^D(I,26)*T(I ,2 6 ) ^SP ( I , 26 ) ’SO ( I , 26) *ST ( I ,26) 

C CHECK FOR ZERO DATA AT HEIGHT 25 

IHV=26 

SFR=SP(I,26) 

SOR=SD(I,26) 

STR=ST(I,26) 

IF (CHECK.GT . 0 . ) GO TO 491 

DO 420 01=1,25,1 

J=2c-Jl 

CHECK = P(I,J» ♦ 0(1, J) ♦ T(I,J) ♦ 3P(I,J) * SOfl.J) ♦ STfl.J) 
C FINOS INDEX IHV OF HIGHEST HEIGHT WITH NON-ZERO DATA 

IHV = J 

IF (CHECK. GT ,U. ) GO TO 440 
420 continue 

C HEIGHT = HEIGHT INDEX - 1 

440 Zi = IHV -1. 


GEN057CC 
GEN053CC 
GEN05900 
GENoeaoD 
GEN061C0 
GEN06200 
GEN0630G 
GEN064CC 
GEN06500 
GENG86G0 
GEN06700 
GEN0680G 
GENC69G0 
GENU7G00 
GEN071C0 
GEN07200 
GEN07300 
6ENQ74C0 
GEN0750C 
GEN07600 
GEN07700 
GEN0780C 
GEN0 79C'C 
GENOaOOO 
GEN0810C 
GENOaaCO 
GEN0630C 
6EN0a40C 
GEN08500 
GEN086CC 
GEN0870C 
GENoeaoo 
GEN08900 
GENOSaCO 
GEN091D0 
GEN0920G 
GEND930G 
6ENgg4(IC 
GEN0950C 
GENOgeCG 
GEN09700 
6EN09800 
GEN099DD 
GENiogco 
GENlOlOO 
GEN102G0 
GEN10300 
GEN1G4CC 
GEN10500 
GEN106CC 
GEN10700 
6EN108CC 
GEN109G0 
GENllOOG 
GENlllOO 
GEN1120C 


oo o o o oo o oo o oo oo 


INTERPOLflTICN AND 


: SPR,SC=,3TR = 5IGMA3 at height Z1 

SPR = S=(I,IHV> 

SDRsSDdt IH7» 

STRsSTM, IHV) 

• ••••IF HCIGHT Z1 20 <M, Ui£ GROVilS AT 30 KM FOR INTERPOLATION, 

0TH£^>^IS:: US£ GROtf^S A 25 KM 
IF (IMV.G'^.Zi) GO TO **30 

••...EVALUATES GROVES AT 25 KH FOR 
FIi_L IN OF Z-RO OATA 
call GTE-ccpj^G^axd) , °2 , 0 2 , TZ , , DG , TG , DP Y , OTT , D P2 Y ) 

IHP = IHV * i 
CO 450 <=IHP,26 

...*. AVOIDS INTERPOLATION OF P,0,T IF ONLY SIGMAS ARE ZERO 
IF ((P(I,K)*0(I,K)*T (I,Kn .GT.O.) GO TO 445 
H=K-1 

IMTEPPOLA^ES PETWEEN 40 AT HEIGHT Z1 AND GROVES AT 25 TO FILL 

IN' MISSING DATA 

call INTE = 2(P(I, IHV) .Od.IHV) ,T( I, IHV) ,Z1,P2, D2,T2, 25., PH, OH, TH 
P(I.K)=DH 
D(I,K)=CH 
T(I,K)=TH 
445 SPd,K) = SPR 
SOd,K)=SOR 

.....SITS MISSING SIGMAS EQUAL TO SIGMAS AT HEIGHt Z1 
450 STd,’<)=STR 
GO TO 5G0 

EVALUATES GROVES AT 3E KM FOR INTF RPOL A T I OM AND FILL IN OF 

ZERO DATA 

480 CALL GTLRD(30,GLAT(I) ,o2,D2*T2,PG,DG,TG,DPY,0TY,0P2Y) 

CALL P0TUV(PSP,3SP,TSO,GLATd) ,GLCNd) ,30 , OP. OQ, DT, OPX , DPY , OTX , 
COMPUTE PERTURBATIONS TO GROVES MOOEL 
$ ,OPZX, DP2Y, D^>XY) 

.....ADO STATIONARY PERTU RB AT IONS TO GROVES MOOEL 
P2 = ♦ DP) 

DE = 02*(1. ♦ □□) 

T2 = T2»d, + OT) 

IHP = IHV +1 
OO 490 K=IHP,26 

AVOIDS INTERPOLA^-ING P,D,T 

IF C(d(I,K)*Q(I,K)*T(I,K)) 

^ ^ K * i 

.... .INTFR30LATES 3ETREEN 40 AT 

fill in missing data- 

CALL INT£R2(P(I, IHV) . 0 ( I , IH V ) , T d . IH V ) , Z 1 , P2 . 02 . T2. 30 . , , OH, TH 
Pd,K)=PH 


IF ONLY SIGMAS ARE 
iGT.3.) GO TO 485 


ZERO 


HEIGHT Z1 ANO GROVES AT 30 KM TO 


485 


490 
4 91 


D d,K) =DH 
T d,K) =th 
SP d,K) = SPR 
Snd,K)=SCR 
SET MISSING SIGMAS 
STd,K) = STR 
CONTINUE 
IHP = IHV - 1 
DO 492 K=2,g 
IF {SPd,K) .LE 
IF <SO(I,K) ,LE 


AT HEIGHT 1 


0.) SPfl.O = SP<I,1» 

0.) soil, K)= 30(1,1) 


GEN113CC 
GENIIhCC 
GEN1150G 
GEN1160C 
GEN1170C 
GENlieOC 
GEN119€C 
GENIEOOG 
GEN1210C 
GEN1220C 
GEM2300 
GEN124G0 
GEN1250C 
GEN1260Q 
! 6EN127CQ 
lG£N12fi00 
GEN129CC 
,H)iGEN1330 0 
GEN131C0 
iGEN13200 
GEN13300 
IGEN13400 
GEN1350C 
GEN136C0 
GEN137D0 
GEN1380C 
GEN1390C 
GFN140C0 
GEN141(}C 
OTYGEN142G0 
GEN143CC 
GEN144CC 
GEN1450C 
GEN146C0 
GEN1470C 
GEN14800 
GEN14900 
GENISODC 
GEN1510C 
GEN1520C 
GEN1530C 
GEN1540C 
GEN1550C 
,H)GEN15600 
GEN157G0 
GEN15800 
GEN15900 
6EN16000 
GEN161CC 
6EN162CC 
GEN163CG 
GEN164C0 
6EN16500 
GEN166CG 
GEN1670C 
GcNlBaCO 






C9E IF (ST (1,0 .L£. G.l 5T(I,K> = STil.U 

10 t * 9 5 K =10 . IHP 


C. SETS ALL ZE=’Q SIGMAS TO SIGMA AT HEIGHT Z1 

T r~ ivi !•“ ^ -■ tik.ir\ ,n m ^ r» ^ ^ i t ^ 



IF 

(SP{I,K) .LE.O.:.AND.P(I,<) .GT.O.) 

SF(I,K) 

= SPP 


T p 

(Sn(I,X) .LE.d.O.ANO.O(I,KI .GT.G.) 

SDdtO 

= S0«5 

495 

I ^ 

{ST(I,'0 .Li.Q.O.AND.Td.K) .GT.O.) 

ST( I,K> 

= STP 

5CC 

PA 

= °C»1) 




TA 

= T(I,1I 




P = 

Z67.G5 




K = 

z 



310 

pp 

- 




TP 

= T(I,K» 




IF 

{(P9*TP) .GT. «:•,) GO TO 52C 




K = K * 1 

GC TO 510 

5cQ IF (TA-T?> S5 j. 57C, 565 
56C TZ = (TA-TR) / ALOG(TAZTB) 

GO TO 575 
57C TZ = TA 

575 H5 = K-i.+O.OQl*R*TZ*ALOG(P3/PA)/G 
KM=<-£ 

IF(HS.LT.KM) hs=km 
IF(Ae3{K-l-HS) .GT.O. 1) GO TO 573 
GAM=TB-T(I,<+1) 

IF(GAM» 5®£»5T0,532 
578 IF(TA-TB) 5tt0*590,5PU 
58D GAM=(TA-TB) / (K-i-HS> 

582 KH1 = KM4.i 

DC 585 J0=1.KM1,1 
J=J0-1 

TJ=TA-GAM» ( J-HS) 

PJ=PA* (TJ/TA)»*(G/(R*GAM*G .COl) ) 
9J=PJ/(P*TJ) 

P(I,J»1I=PJ 
D(I,J+1) =CJ 
565 T(I,J+1)=TJ 
GO TO 599 
59C Khi=KM+l 

DO 395 JO=l.KMl,i 

J=JC-i 

Tj=ta 

PJ=PA*EXP(-G* (J-HSI / (F»,0. OCl’TJ) ) 
DJ=PJ/{P^TJ) 

FCI,J+i> =PJ 
Odf J + l> =0J 
595 T(I,J+1)=TJ 
599 HS=Q. 

KOUNT = I 
CALL ADJUST 
60C CiCMTlNUt 
FETUPN 
F 


GEK16900 

GEN170CC 

GEN171C0 

GEM720C 

GEN17300 

GEN174C0 

GEN175C0 

GEN17600 

GEN17700 

GEN17800 

G£N179CG 

GEMdOOQ 

GEN18100 

GEN182C0 

GEN13300 

6EN1S43C 

GEN1850C 

GEN1960C 

GEM870C 

GEN188G0 

G£N1890€ 

GEN190G0 

GEN191C0 

GEN192C0 

GEN1930C 

GEN1940G 

6EN1950C 

GEN1960C 

GENl97Ce 

GEN1960C 

GEN199QC 

GEN2000C 

GENEGiCC 

GEN202CC 

GEN203CG 

GEN204CC 

GEM2050C 

GEN2060C 

GEN2G7C0 

GEN208CO 

GEN209G0 

GEN210GC 

GEN2110C 

GEN212CC 

GEN213CC 

GEN21400 

GEN2150C 

6EN21600 

GEN217C0 

GEN2180C 

GEK21900 

GEN2200C 





oooo 


o 
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c 

C 

C 


%. ^ ^ > r' » 

SU:iKOljrir.E GETN'IC 

PtACS ‘*3cTU°" OATA TAP£, OP NPC G^IO CATA CAROS, 

ArO WRITES SCRATCH FILE FOR USE Py SELECL. 

dimension ,3UFFER(6A> 

COMMON /ICTEM=>/ SCRC HI , SCRCHc , lUG , N MCOP 

I^'TEGE=> SCRCME 

NPEC=0 

IFCNMCOP.NE, fl) GO TO 2 

call nTRAK (I'JS,2,15, IP»l,£) 

IF(L. NE.15) GO TO 6 
GO Tc 3 

2 PtAO(5,iOC) (IP(I» ,1=1,15) 

ICO F0RMAT(15I5) 

3 DO :* 1 = 1,15,3 
M=ID(I) 

IF(M.LT.1)G0T05 

ij=ip(i+i)*ioo:' + ip(i+ 2 ) 

OALL NTRAN(SCRCM2,1, 1,IJ,L,22) 

NR£C=NREC*1 

4 continue: 

IFfNMCOP.NE. 0) GO TO 2 
GO TO 1 

5 IF(NREC.NE.1977) GO TO 6 

MOVES PAST first EOF ON UNIT lUG 
CALL NTRAK ( lUG, '^,1,22) 

RETURN 

6 WRITE(6,200) NR£C,SCRCH2 

2C0 FORMA TC1H1/1X,I6," RECORDS WRITTEN 9Y GETNflC IN SCRATCH 
STOP 
END 


GETOOIGG 
GET0020C 
Gcr003CC 
GET0040C 
GET2fl50C 
GET006C0 
GET007CD 
GETDOaCG 
GET009CG 
GETOIQCC 
GETGllCC 
GET012GO 
GET0130C 
GET0140C 
GET015CC 
GET016C0 
GETQ17CG 
GET01800 
GET0190C 
GET02a0G 
GET021GC 
GET02200 
GET02300 
GET0240C 
GETG250C 
GETOEeCC 
GET027GC 
GET0280C 
GET02900 
GET0300C 
GET031G0 
GET0320C 
GET03300 
FILE"* 13) GETC34GC 
GET03500 
GET0360C 


OOOO o OOOOO O OOOOOQO 


f 


I* 


S'J3-5CUTINE D4 0 
PEaL LflT. LON 

CGMK0N/C4/L&T (16) *LON<i6 5 *NP,P(ic*26) 

?■ SP (16,26) rSTdo, 26) 

COM^'ON /PCTCO^y IT, MONTH 

SIJROIJTINE TO SELECT PRESSL)P£, T£NP£PfiTU»E 
TOGETHER WITH THE NORKflLIZEO VARIANCES IN 
AT LAT/LONS SELECTED BT CALLING PpOGRAN. 

USES NASA HUNTSVILLE MSEC 4-u DATA TA^ES 

Dlf^ENSION IN(lj7),BUFFER(64) 

CCM^CN /ICTEMP/ SCPCHi ,SCRCH2 

CCMMCN /3CINT/ I°T (16,5) ,LL(i6) , CXY(16,2) 

COMMON /ORDER/ I PTN (1 6 , 5 ), I RE A D ( 65 , 3 ) 

CCMHCN /InT/ 0(203,5) ,IG(E) ,DYX (2) ,DLA(4) ,0L0(4> 


IMEGc.R SCRCHl, READ, WRITE 

INITIALIZE 

ZERO=C.O 
ONE =1.0 
T''N = 1C ,0 
HlJNDP=lCu.O 
THOU = i0'j0.0 
REAC=6H READ 
WFITE=6H write 

N=MONTH-1-((2»MuNTH) / 9J*4 
IF(MONTH.EQ.i!) N=0 
NUMEOF = C 
CALL NTPAN(IT,10 ,22) 

IF (N.EQ.O) GO TO 2C 
CALL NTRAN(IT,8,N,22) 

AF-PRCPRIATE 4-0 INPUT TAPE NOW »OS:I-TrONEO - FILE NEEDED PROFILES 


2D CALL SELEC4 

IRC = e 
IFN = 1 

IF(IRFAD(IRN,3),.£Q.C) GO'^0 39 
21 JT=IT 
M=REAn 

22 CALL NTRAN(IT,2, 106, IN,L,22) 

IfC =IRC +1 
IF (L.EQ.-2) GO TO 39 
IF (L.LT.C) WRITE(6,23) IT, L, IRC 
23 FORMATC’ INPUT UNIT NO.", 13," IN ERROR ('*, 
1 ) 

IF(IFC.LT.IREAD(IRN,3) ) GO TO 22 


GRIOJICC 

GRicaaco 

,2 5» ,TC 16,26 ) ,SP( 16, 26) ’.GRID 03C0 

GRI004CC 

GRI005CG 

GRI0060C 

, AND DENSITY PROFILES (GRIOOlOO 

EACH, AT UP TO 16 "GRID GRI002CG 

GRI0Q30C 
GRI004CC 
GRI0050C 
GRIC060C- 
6RICG70G 
GRI008CO 
GRIC09CC 
GRIOIOOG 
GRICllCC 
GRI012G0 
GRIC13C0 
GRI014C0 
GRI015C0 
GRI01600 
GRIG170C 
6RI0180G 
GRI019GC 
GRI0200C 
GRIC21C0 
GRI022CC 
GRI023C0 
6RI02400 
GRIC25C0 
GRI0260C 
GRI027CO 
GRI028C0 
GRI02900 
GRI030CG 
GRI0310C 
GRI032CC 
GRI0330G 
GRIC34C0 
GRI0350C 
GRI03600 
GRI037G0 
GRIQ38CG 
GRI039C0 
GRI040C0 
GRI041CO 
GRIQ42GC 
GRI043C0 
GRI04400 
GRI045CC 
GRI0460C 
GRI047CC 

12,") FOR RECORD NO. ", I5GRI048CO 

GRI049CC 

GRI050C0 






I 




¥ 






>• 





If- (:ie.G,GT...IR£,A.D.M'RN,-3,» ) GC.TO 13 

2k l=l3FdO (IRN, 1) 

J=IStAC(Ii?r4,2) 

IF( IRK'.EG.l) 30 TO 25 

IF(IPEA0fIPN,3» .EQ.ISLaO(l^.M-l,3) ) 30 TO P7 

25 IP=FL0(i2»12,rN(iuei » 

MP = FLD(2A,l2,IM{iD6) ) 

IF( (MP.Nc.MONTH) .OR. (l^.NE. IFT (I , J) n GO TO 39 
DO 26 
K=1C7-I< 
lM(K + i)=IK(’<) 

26 CONTINUE 

27 FL0(C.1F,IN(1) ) = I 

FLDCl 1 IN (1) }~J 

JT=5CPCH1 
f-*=W = ITF 

CALL NTPAN(3C=>C-^1*1, lCT,IN,t,22) 

IFN-TkNfi 

lF{L.NE.lu7) GO TO 39 
irCFEACdRN.?) .2 Q.IkC» go TO 24 
IF(IF£Ar<IRf4, 3) .EQ.G) GO TO 28 
GO TO 21 
C 

C INTERFOLAT- TO GIVEN LAT/LON FROM GRIG DATA 

C 

2^ H=READ 

DO 3“ II=lfN= 

DO 29 I -• 1^208 
DC 29 J-U5 

29 CCNTi. ^ 

IF(iPTil!i J) .EQ.OI GO TO 32 
FLO (0,1 8, INDEX) = II 
FlO(18,1®, INDEX) = J 
call NTRAN(SCRCH1,1C ,22) 

30 CALL NTPAN(SCRCHl,2,iC 7, IN,L,22) 

IF(L.EQ.-2) go to 39 

IFdN'(l) .N£. INDEX) GO TO 30 

DC 31 1=2, 1£5 

J2=2*I-2 

Jl=Jc-l 

DfJl, J) =FLD(0,13, IN( I) )/HUNDR 
C (J2, J) =FL0 ( 13, 18,IN (I) ) /HUNDR 

3*1 continue 

OLA(J) =FLn(Q ,18, IN(106) )/TEN 
DL0(J)=FLC(18,18,IN(U6) ) /TEN 
.72 CONTINUE 
C 

C IP necessary, interpolate 

c 

LALC = LL (II) 

DO 77 1=1,5 
IGd) =IPT (II , I) 

33 CONTINUE 

IF(IG(2) .NE.O) GO TO 35 




GRIoSlOO 
GRI0520C 
6RI05300 
GRIC540C 
GRI055CC 
GRI0560C 
GRI057GC 
GRIC5800 
GRI05900 
GRiceacc 
GRI061C0 
GRI06200 
GRI063Q0 
GRIC640r 
GRIC65G0 
6RI066C0 
GRI06700 
GRI068CC 
GRIOoRCG 
6RIC700C 
GRIQ7100 
GRI072CC 
GRI073GC 
GRI074C0 
GRIG75CC 
GRI0760C 
GRIG770Q 
GRIC78CC 
GRI079eC 
GRI080CC 
GRIC810C 
GRIC620C 
GRIC83CC 
GRI084CO 
GRioasco 
GRI086CC 
GRIC87CC 
GRI0680G 
GRI0890C 
GRI09000 
GRI091CC 
GRI0920C 
GRIG 93 0 0 
GRI094CC 
GRI095GC 
GRI0960G 
GRI097G0 
GRI0980C 
GRI099CC 
GRIIOOGG 
GRIIOICG 
GRI1020C 
GRX1030C 
GRI104G0 
GRI1G5G0 
GRI1C600 



H 

'f, 

u 


I 




I; 

I 

I 

I 

n 

?! 

E 

I 

i’l 

i 


I 

S. 














00 '^U 1 = 1,2 0 *< 

C(x,5)=0(I,l» 

2k continue 

GC TO 27 

T5 IF(IG(5I .0E.2» go to 36 
DYX (1) =DXy (II, 1) 

QYX (21 =0XY(iI,2) 

:6 CALL INT<?‘^>* (LALO) 

37 DO 3P I=i,26 

o(II,II=0a,5l*HUND? 

R(II,I)=D(I<-l36,5>/TH0U 
T(II,II =E(I*52,5» 

DIVID^ = O^.E 

IF(=»(II, I) .GT.2-P0) 0I7I0F=fO( II,I) /t'^ONQR) ♦♦a 

SPdl, I) = C(I+2o,5» /DIVIDE 

CIVIC-=ON- 

IF(^ ( II, n .GT.ZEEOI Cl V IDE= ( THOU*R( I 1,1 i )**2 

S-(II,I) =0(1 + 1/? 2 ,51/ DIVIDE 

DIVIO£=ONE 

IF(T(II,I» .GT.ZEROI DI VI DF=T ( I I , I ) ++2 
ST (I I, I r=D( I +78, 5) /DIVIDE 
28 CONTINUE 
FETUFN 

39 WFITE (6,40 JT, IRC, ISEADCIRN, 3) ,MP, MONTH, 10,1 
LC FORMATC* +* + + ♦ unit NO, ••,13," IN ERROR", 17,** 
I" I.^EAD (IRN, 3) =",I5," HP =*,I3," MONTH =",I3 
1° =",I5," IPTC*,I2,",",I1,"> =‘M5,“ IRN = 

ST 0 
END 


,J,IPTfI,J| ,rRN,M,L 
RECORDS READ**/ 

^*,I3/A6,’ 


GRIiaTOC 
GRI108CC 
6RI1090C 
GRIllOOO 
GRUllOO 
GRI112C0 
GRI113CC 
GRI114G0 
GRI115C0 
GRI1160G 
GRI117CC 
GRIlieOC 
GRI119CC 
GRI12(JCC 
GRI121Q0 
GRI122CC 
GRI123CC 
GRI124C0 
GRI125C0 
GRI126C0 
GRI127C0 
GRI120CG 
GRI129CC 
GRI130GG 
GRI131GC 
GRI132CG 
GRI133CC 
GRI134GG 
STATUS", 15) GRI135C0 
GRI1360C 
GRI137C0 


000 (T 000 C 5 


FInST QAr<:i CA-?0 i^-AOS INITIAL H£IGHT f<M| , INITIAL 
I N-i T-I.AL L43 NG I T U Ot ( D E G I , F 1 0 . 7 ♦ '-IE A M F 1 0 . 7 » A o , 

V£A=> {TOTAL YEAR - 1900), GREENWICH HOUR, MINUTE,, 

LATITUCE increment (0£G) , LONGITUGE INCREMENT (DEG), 

HEIGHT 0;:^CR£ASE (<M), MAXIMUM NUMBER OF POSITIONS (EXCLUDING 
initial POSITION) TO OE COMPUTED, TIME INCREMENT G;;:TWEEN 
PC5ITICNS, TRAJECTORY 


GRMOg^CC 
GRMG J5CC 
GRMC 36CG 
GRMa070C 
GRMOOeGC- 
GRMS'jcCC 


90 9? 


ri ui'i I fT 

IOPT=0 

IF( lOPT.EO.C .OR. CIOPT.GT.O. 
REAOf IOPT,lO » I£T,H,PHI,TMET 
GC TO F 
MN = MONTH 
NS A ME = 0 


T. CIOPT.GT.O.ANC.H.lT.Q.) ) GO TO 6 
:t,h,phi,tmet 


OT f-Mj X r u u 

GRMG19C0 

GRM019C0 

GRM020GC 

GRMC2100 

GRMQ22CC 

GRM023CC 

GRM02A00 

GRM0250C 

GRMU26CC 

GRM0270C 

GRMC28C0 

GRM029C0 


10 


NSAME =0 GRM029C0 

p'^AO (5, 1C ,£ND=9C ) HI ,PHI1, TH£T1, FIO, P103, AP, MN, IDA ,IYR, IHRG,MINO,GRM03000 
1 I5ECO, CPHI, DTH=.T,DH,NMAX,INCT,IOPT,ICPP,Gi.AT GRMC31CC 

FORMAT ( ) GRMO 320G 

WRITE (6,9090 ) _ 


W r- i f r. I o , y L' H U > 

IF(AP3(PHIi) .LE.90.) GO TO 7 
PHIl = SIGN(i8«J.-A3SCPHIl),PHIl) 
TH£T1=THET1+130 . 

IF(THET1.GT.3 50 .» THt T1 =THE T1 -S50 
7 IF(THET1.LT. C.) THET 1 =THE T 1 + 36 0 


GLAT = 5. 

GLAT.GT.70.) GLAT = 70. 

E (6, 9C1 j ) H1,PHI1,THET1,F1G,F1GP,AP,MN,I0A 
CO, CRH I, dthet,oh,nmax.inct,iopt,ic°p,glat 

NSAME TO AVOID SETUP 

UM r- AjtnMTLit ^ 


GLAT = APS(GLAT) 

IF (GlAT.LT. 5.) 

IF (GLAT " 

WRITE ( 

t ISECO, 

SET NSAME TO AVOID 

15 IF (MN.EQ. MONTH) NSAME = 

LOOKUP ON multiple 

MiONTH = MN 
CONVERT LATITUDE 
PHI1R=PHI1*FAC 
CONVERT longitude 
TH£T1R=THET1*FAC 
CONVERT latitude INCREMENT 
CPHIR=QPHI*FAC 
CONVERT LCNGITUDE INCREMENT 
0TH1TR=CTH^T»FAC 
REA0 DATA TflPc TO INITIALIZE ARRAYS 
call SETUP 
K' T — ^ 

IF( lOPT.EC. Gl GO TO 16 


,IVF, IHRO,MINO, 


SETUP 
..*ME = . 
PASSES 

TO RADIANS 

TO RADIANS 

TO 


RADIANS 
TO RADIANS 


GRM0320G 
GRM033C0 
GRM03400 
GRM03500 
GRM036G0 
GRM037GC 
GRM0380C 
GRM0390C 
GRMQ 4 OOO 
GRM041GG 
GRM042C0 
GRN04300 
GRM044GG 
GRMQ<,500 
GRMO 46 OG 
GRMC47C0 
GRM04800 
GRM0490C 
GRM050CC 
GRM05100 
GRMC52C0 
GRM053CC 
GRM0540G 
GRMC550C 
GRM0560G 
GRM057CG 
GRM058C0 
GRM059CC 




» 


► 


A 


0 

1 

U 3 


KEaC(I0FT,15 ) i£T,H,PHI,THCT 

IF(TH£T.lT. P . ) TH.ET=THET>36C . 

PHI -? = PH1*FAC 
THLTR. = THt T^FflC 
GO TO 19 
IS H = HI - CH 

c. . . .-.nisFLACES =»03iri0N before evaluation op atmospheric oarapeters 

lET = INCT 
fwir=phiir+cphir 

THETP = THET1E'^JTHETR 

c A=FQUATOFIAl earth RADIUS, 5 = °OLAR EARTH RADIUS 

C EPS== EARTH ECCENTRICITY 

19 A = 6378.160 

P = F356.77h7 
EPS=(l.-(t*B)/{ A*A>) 

C. ... .COMPUTES RADIUS TO HEIGHT H, AnO GRAVITY AT HEIGHT ANC 
C LATITUDE ?HIR 

CALL RIG 
ISEC-ISECO+IET 
: IS£C=MOC (ISEC,6U » 

MN = MINO + lET/oC 
IHR = IHRO + HIM / 60 
MIN = M00{.MIN,6u) 

C. . . . .CCMFUTE3 F,0,T,U,V AT FIRST POSITION AFTER INITILL POSITION 
IF(H1.LE.30. ) LOOK=l 
CALL SCIMOD 

20 i;r = NT ♦ 1 

IF (1J=’T.EQ.u) go TO 22 

Ft ADdO^T.lO) IET.H.PHI.THET -- 

IF(H. LT.O. ) GO TO 5 
IF(APS(PHII .LE.90.)GO TO 21 
PHI=SIGN(130 .-A3S(PHI» ,OHI) 

TH£T=THFT + i«i? , 

21 IF(THET,LT.u.)THET=THET + 36(). 

IF<TH£T.GE.363. ) THLT sTHET-360 . 

ohir=phi*fac 

THE TF=THET*FAC 
GO TO 25 

C TNCREM-NT TH£ HEIGHT 

22 H = Hi - OH 

IF TH .LT. C .0) GO TO 5 
C INCREMENT THE LATITUDE 

PHIR=PHiS+QDHIR 
C INCREMENT THE LONGITUDE 

THETR=TH£TR+0TH£TR 

C..... CHANGES LONGITUDi 3Y ISO OEGREES AND I-F A9S(LAT» GTP 90 OEG 
C..... MAKES LAT=SIGN(LATI*(13c.-ABS(LAT)) 

IF (ABS(FHIR) .LE.PI/2) GO tq 23 
PMIRrSIGN (OI-ABS (PHIR) ,°HIR) 

th£T‘^ = th:tr + oi 

23 IF {TH£TR.GE.2.»?I> THETR = THETR - 2. * PI 
IF (THETR .LT . j. ) THETP = THETR ♦ 2. ♦ °I 
C INCREMENT THE TIME 

ItT=IET+INCT 
25 MIN^MNCf IET/50 
ISEC=ISLCC+IET 


GRM060G0 

GRMC61G0 

GRM0620C 

GRM053(3Q 

GRMOe^CC 

GRM0650r 

GRMC66C0 

GRM06700 

GRMG63CC 

GRMa65C0 

GR.MQ700G 

GRMfi7l0C 

GRM072C0 

GRM073DC 

GRM07**CC 

GRM07500 

GRM0760C- 

GRM077C0 

GRH07a00 

GRM079CC 

GRMoaoeo 

GRH081C0 

GRMC8200 

GRH063G0 

GRM034CC 

GRM085C0 

GRMC36C0 

GRM087GC 

GRN088CG 

GRMC890C 

GRM(j90C'C 

GRMC910G 

GRMC92C0 

GRM093C0 

GRMC940C 

GRMV95CC 

GRH0960C 

GRM097CC 

GRM098C0 

GRM099CC 

GRMlOaCO 

GRNIOIGC 

GRM102CC 

GRM103C0 

GRM104G0 

GRM105CG 

GRM1G6GC 

GRM107GG 

GRM1030C 

GRM109CG 

GRMllOOG 

GRMlllOO 

GRM11200 

GRM1130C 

GRM114CC 

GRMllEOC 



I 

i 

1 


It 

r? 





IS£C=M0C(I3PC»6G) 
lHR=IHSC + !'iN/P)0 
NlN=MOa(HIN, 5 j) 
CQflFUTE 9fiOIUS and 
call «?rr, 

COMPUTE P.O,T,U,\/. 
CALL SGIf^OD 


GttAVITY AT MEW PCSITION 
AT NEW POSITION 


..READS NEW IN 
IE(N«Or?E.EQ. 
CYCLE TO NEW 
GO TO 2C 
I STOP 

I FOR^'ATr• IN 
1F6.Z." DEG", 
$ 8 . 2 . 

2TL3,"MEAN FI 
3"/‘M2.TA3,'‘ 
t*~ ••,F5.2.*‘ 0 
$"GHT INCR", 
5”EMENT = ".F 
6"TIME INCFEM 
7TL3, "OUTPUT 
PUD 


OUT IF NMORE = 

J .OR. ( IOPT.EQ.O 
POSITION 


ITIAL HEIGHT = 
T85, "INITIAL WE 

0.7 = ", F7.2«T3 
GREENWICH TIME 
EG".T43, "WEST L 

7.2," KM",/," 

ENT = SE 

OPTION = ",I2,T 


0 OR MAX POINTS COMPUTED 
•AND. NT .GE. NMAX)) GO TO 5 


"•FT. 2," <M",T43,"INITIAL LAT = 
ST lON = ",F6.2," OEG",/," FlO. 

3,"AP = ",F8.2,/,"- DATE = ",IE, 
= ,12," ,12," ,12/," LAT INCRE 
ON INCREMENT = ",F6.2," DEG",T83 

?*AXIMUN NUM9ER OF POSITIONS = ", 
C",/2X, "TRAJECTORY OPTION = ",IL 
83, "MIN GECSTROPH LAT = ",F5.1,/ 


GRM116C0 
GRM117C0 
GRMlieOC 
GRM11900 
GRM120C0 
GRM121C0 
GRM1220G 
6RM12300 
GRM12A0O 
GRM1252C 
GRM126CC 
GRM1270G 
GRHiaaOO 
**, GRM12900 

7 = ",FGRM13000 
GRM1310C 
“/",I2,GRM13200 
KENT GRM13300 
,”HEI",GRM13400 
GRM13500 
I4,T43,GRM13600 
, GRM13700 

» GRM13800 

GRM1390C 



IC'O 

3CC 

2i0 

cc^ 

cc5 

250 


700 

u30 


G = 'J'J=^ 

PI'-CNSICN <Jl](P) 

COM’^ON /C‘-IC/LA(m,^) *N3(2I f IW5Y'^ 

COr-IMC'^ /CHK/^(*»,4,.3) ,0 ‘:n( 4.,.*4,3) tNO(2) 
COMMON /WINCG 1/OGH ♦FCO^Y,OX5#Df5 
FCO^X = PC0^Y*DX5/DY 5 
K/ = l 

DO LUkj I~lf^ 

DO ICO J = 1 f - . 

LA(I,J>=-f*(I-l» ♦•J 

CDiNTIMJC 

CONTir.'JE 

CO "5u F=1,4 

no 3^)0 M = 1,4 

IF fK<._0.i) GO TO 21,0 

I=5-M 

J = 5-K 

N r, = - 1 

N*» = - i 

GO TO 220 

CONTINUE 

I--1 

J = N 

F,N = 1 

N^ = l 

CONTINUE 

IF (N.CC.^I GO TO 225 

CINX = FCCFX» CGEN(I,JFNN,2) ♦CFN(I,J,-ZI)/2 
VY= (F ( I ,J*NN , 3) -P{ I, J,2) J /DINX 
I'^(Al-S(VY) .GT.i JO) GO TO 225 

LA(I,J)=FIN0(LA(I,J),LA(I,J+\N)) 

LA ( I, J+NN) =LA (I , J) 

continue 

TF(M.£Q.4) go to 250 

CINY=FCCFY* n£N(I+N4,J,2) ♦0£N(I,J,“) )/2 
VX = (PfI + NJ*,J.2)-P(I,J,2))/OlNY 
IF(APS (VX) .GT.luO) GO TO 250 
LA(I,J)=(^INC (LA (I,J) ,LA (I+N4,J) ) 
LACI«-N!*,JI=LA(I, J) 

CONTIMJF 
KK = <K f i 

IFCKK.EO. ?) GO TO 200 

NO(1)=0 

NOT 2) =0 

ir=i 

CO 4C0 LL=i,il 
KOU(II>=l 
DO ^CO 1=1,4 
CC 3CC J=l,^ 

IF(LA (I, J) .-G.ll) KOU(II>=<Cy{II) 

continue 

ir (KOUdll .G£. 7) NO(III =LL 
IF (KJ'J( II) .'o- . T) 11=2 

continue 

Rf T UF N 
ENO 




flOlCC 

:g2Cc- 

CI33CC 
C J*tCG 
005CC 
CJcCC 
0070G 
038CC 
0u9CC 

oiacc 

CllCG 
012CC 
0130G 
014CC 
w 1 3 G C 

(iieoc 

L170C 

313CC 

C19CC 

o2aco 

U2100 
022CC 
0230C 
0240C 
u250e 
3260C 
327CG 
0280C 
029CC 
G30CC 
031G0 
C32GC 
033CC 
0340C 
0 35CC 
03600 
03700 
038CC 
G390C 
C40CG 
041CO 
C42C0 
0430C 
0440 G 
0450C 
G46CC 
3470 0 
C48CG 
049CC 
C50CC 
C51C0 
05200 
0530C 
054C0 
055CC 
0560C 




-a, ;-cUTis: ih*phi,p,u, ^,og, tg, c'^Y,orY,np?y) 

. ii.T,, PPJL-lTr.: ;«•; JV ^3 G 4 :TA TO ►ni IGH T IH a •- D L ii T I T 'ID L PWJ 


• j. i . t .. j L jc j ^ ij I c- I ‘J n 1 j. > I X “ i I X I M 1 

_C:r<:r.310N ^G ( l<i, 1 i) , TG (1 c, x9) » 3G ( 19) 

PriGHT If,D£x 
I = ( I H - Z() ) / y 
LLW-- ^tTITUO-, I‘JDEa 
-J = lM((=Hr lOG.V/lv,.) 

XJ' fJ.LT.l) J = i 
IF (J.GT.18) J-18 
I’-FP-P LA T I rue- INDEX 
JP = J > i 

.OtiCK PCP DENSirY OF TEHPE R/JTURE LET C 
CHK = DG(I,J) * TG(I,J> ♦ OG(I,JF) ♦ TG(I,J3» 

IF (CHO 10 , ij, 23 
p = =G(i,ji 
L = CG(r,J) 

T - TG (I, J) 

Ft '''C 3L 

.LATITUDE C:^\/IATiaN FROM GROVES AFFAY FDSITIO^J 

Pt^jc - {CHI ♦ iOu. - i3.*j)/in, 

TL= TG(I.J) ♦ (TGd.JD ) - TG<I, J) ) *=HIF 

latitude INTERODLAT ion 

CL= CG(I.J) ♦ (DG<I.JP ) - DGd.JI) *FHIF . 

F 1 = °G ( I , J i / { DG ( I , J ) ♦ TG ( I , J ) ) 

Pc = °G(I,JD» /{JG(I, JOdTGd.JP) ) 
if.TFH c:olAT£C gas constant 

F = Fl «■ <R2 “ nl»»PHl'^ 

FFESSURc CCMPJTcD FROM INTePFQLATtD GAS CONSTANT 
P-DL*-^''‘L 

r = r-^ 

^ = TL 

DF/DY FO° GvOSTOFHIC WINDS 

DPY = (FG(I.JP) - '»GCI,J)T * U.5 

DT/DY FCR TmL'RNAL WINDS 

CTY = dG(I.J^) - TGd.J)) * 0.3 

JM - J - 1 

IF (JM.LT.l) JM = JP 

GF2Y = (PG(I.JP) - PGd.JF ))*0.F 

IF (A -d ( PHI ) - 3U . ) 5C,<.C,A0 

D F'Y - X . 

DTV = G. 

DFcV = X. 

Cn-JTINUL ■ i 

P? TURN 
END 



,’fi . . 


y 





SI. CUT IN' 

ir ( Z1 - Z? ) ZQ,li; .Z^- 
1C U - U1 

C SITS U,V = Ui.Vl IF Z1 = Z2 

V = VI 

PfTURN 

ZG JS = (Z-Zl) /(ZZ-Zl) 

IJ = Ui ♦ (U2-U1) * A 

V = VI + (V2-V1 ) * A i / 

C. , . . .LlN.eAR interpolation :3£TWEEN U1*V1 at height Z1 AND U2tV2 AT 
C HEIGHT Z2. OUr^UT IS U,V AT: HEIGHT Z 

RETURN 

END 



9 


y 


K 








SUa tCUTINf . 3 1 » Ti , Z 1 , P2 , 02 , T 2 , , o , D , T , Z » 

IP (Zi - 72) 2d*Io»2u 


P = PI 
C = Gi 
SETS 
T =Ti 

Rf TtJCN 


0. T = =>l,ni,Ti, IF zi = 11 


A 

= (Z 

- 

Zll / 

(Z2 - ZI) 

T 

- Ti 

■f 

(T2 - 

Tl)*A 

C 

= 01 

♦ 

(D2 - 

□ D^fl 

P 

= PI 

+ 

(P2 - 

'=»!) ♦ A 


LI‘-4£fiP IMERPOLftTION OETWEEN P1,:C:1.T1 AT HEIGHJ Zl AND P2, 02,12 
AT HEIGHT Z2 TO OUTPUT VALUES OF P,0,T A^ XGHT Z 

K • T I J P M 

Ff.O 


INZ031UC 

-INZ00200 

IMZ0C30G 

IHZ0Q40C 

INZCuSOD 

INZPQ6CC 

IHZ0C7CC 

iNZQaaOL 

INZ0U900 

INZUIUCO 

INZOIICO 

INZ012GD 

IHZ0130C 

iHZOli^CO 

INZC150G 


oi: 

I 

INS 

in 


C 

G 

C 


* 5 * 7 A 7 H: 

C, FOR GAS 


0,T,Z) 


IGHT Z 
CONSTANT 


to 


f.URFCUTINF (Pl,Dt.Ti,Zl,^»2,32»TZ,Z2,3,u, ! , 

, ItJTSPPOL AT-SS 5::TWEt.N AT HEIGHT Zl ANO C2f 0 > 

HEIGHT Zi TO OUTPUT VALUES OF 
.CHECKS FOP T1,01,T2,D2 =ROOUCT = 

CHK-T1»D1»T£*02 
IF (CHK) 10,10,3 
IF (Zl - Z2) 2j,i.‘j,3fl 

P = Pi 
G = D 1 
SETS 
T = T1 
RETURN 


P,n,T = =>l,Oi,Tl IF Z1 = Z2 


TO 3C 


20 IF{Pi*0i'^Ti*32*02*T2 .LE.O.IGO 
A=AL0G(02/D1I/(Z2-Z1 > 

C LINEAR INTE'^POLATION ON LOG D 

OZ= ni*EX=>(A»(Z^ - Zl)l 
A= (Z-Zl ) /(Z2-Z1) 

C LINEAR INTERPOLATION ON T 

TZ= T1 + A*CT2-T1) 
f^i = Fl/{Dl*Tl) 

( 02*121 

C LINEAR INTERPOLATION ON GAS CONSTANT R 

R=(R2-R1I *A+Ri 

C PRESSURE FROM PERFECT GAS LAW 

D s 07 * P * TZ 
0 = DZ 
T s TZ 
RETURN 

^0 P-0 . _ „ 

0 = 0 . ' “ ^ 

T=0. 

RETUPN 

END . 


IN2001CC 
T2 AT IN20J2PC 

IN2G050C 
INT ER PO L A T I ONI N2 0 04 C C 
IN2C35nG 
IN2C060C 
INEuOZCC 
IN2G08CG 
INZyOOOC 
IN2C10C0 
IN2GUCC 
IN2C120e 
IN2L13CC 
IN2C140C 
IN2015C0 
1N2016C0 
IN2C170C 
lN2CieCD 
IN2019tG 
IN2G2GCG 
IN2C2100 
IN2022C0 
IN2023C0 
lN202<tCC 
IN2C25C0 
IN2U26CG 
IN2027CC 
IN202eCO 
IN2029GC 
IN2C30C0 
IN2Q31CC 
IN2C32GC 
IN20330Q 





If 


SU'^POUTIN" I^TE^4 ( 


0 

1 

ro 
o» ■ 


C • • • 

c 

c 

c 

c 


■+ « 


DA.t, T4, jpx, o'^y. 


CUflT, CLO'N. IZ, 
iD r X , QT Y , O r X X vH ^ Y Y t OP X Y ) 


0, T, 


C 

c 

c 

c 

c 


10 


20 


IDO 


105 

C t • • • 

c 


no 

c • • • • 


. IhTEFPOLf^TES ?£TWrEM 40 /SPRAYS P ( I , I H ) » 0 ( I , I H ) , T ( I , IH) AT GRID 
LOCATICHS lATITUOS GLAT(I) LONGITUDE GLON(I). 

CLAT,CLJN = CURRENT LA T I TUDE ♦ L CNG ITil0£ 

IZ = HEIGHT NG = NUMBER OF *,0 GRID POSITIONS 

OUTPUT = 3^,.0L,THt and D£RI\/ATIVZS 0 FX , QPY , 0 T X , D T Y 
COMMON /CU/ GLAT(16) ♦GL0N(l6l .NG 
CCMM0N/CHIC/LA(4,^) ,Ne(2> .IWSYM 

DIMENSION P(16.E6» .0<16.26) ,T(16,26) .LAX(16) 

iwsym = ” *• 

ICHK = 0 

HEIGHT INDEX = HEIGHT +1 
IH = 17 * 1 

IF (ICHK.GT.l) GO TO E20 

IF (mg.gt.p) go to i:c ■ ^ 

NG - 9 MEANS 30i_AR GRID 
DO IC I=iC. Ib.l 
Ffl.lHI = o(9«lH) 

D(I.IH) = 0(9, IH) 

T(I,IH) = T(9,IH) 

GLAT(I) = GLAT(9) 

I=i0-16 all at 90 DEG 

GLON(I) = GLON(I-3l 

LOMFF right INTERPOLATION INOEX 

IP = INT (CLON/45) +1 

LOWER LEFT 1 NTERPOLA TION INDEX 

lA =IB+1 

IF (IA.GT.8) lA = IA-3 
POSITION OUTSIDE POLAR GRID 
IF (A9 S (CLAT) .lT.75. ) GO TO 20 
UPPER LEFT interpolation INDEX 
IC = lA +e 

UPPER RIGHT interpolation INDEX 
10 = 13 ♦ *» 

GO TO 300 
CALL GEN4D 
IWSYM = "»*• 

ICHK = ICHK +1 
GO TO 5 
XLON = CLON 
DO 1C5 1=1,4 
DC 1C5 J = 1,4 
116 = 4*(I-1) ♦ J 
LAX(I16) = LA(I,J) 

CONTINUE 

IF (CLON. GT . 345) XLON = CLON - 36C. 

•CHECKS FOR “OSITION WITHIN 16 POINT GRID 110=GOOO. 200=POSITION 
OUTSIDE grid. 

IF (CLAT.GE.GuATU) .AND. CL AT . L T . GL A T ( 16 1 .AND. XLON.LE .GLON (II 
t .AND.XLCN.GT.GLONden GO TO 110 
GO TO 2u0 

lA = 1 ♦ INT((GL0N(1) - XLON) / 5) 

.lA = LOWER LL^T (REFERENCE) INTERPOLATION INDEX 
lA = lA + 4 ♦ INT((CLAT - GLAT(l)) / 5) 

LOWER RIGHT INTERPOLATION INDEX 


IM4C010C 

IN4Q02GC 

IN4G03CC 

IN40040C 

IN4005CC 

iN4oa6c-C’ 

IN4U07GC 

iN4oadoc 
IN4009CO 
IN401(jCC 
IN4011CC 
IN40i2Ce 
IN4313C0 
IN4C1^CC 
IN40150Q 
IN4016CC 
IN4G17C0 
IN40160L 
IN4U190C 
IN4G2a(i0 
IN402100 
IN4C2200 
IN4U230C 
IN4024CC 
IN402500 
IN4026CC 
IN402700 
INUC28CC 
IN4C29CC 
IN4030CG 
IN4031GD 
IN4C32t0 
IN403300 
IN4C34C0 
IN4035C0 
IN4Q360G 
IN4037CC 
IN4Q38GC 
IN403900 
IN404QC0 
IN4041GG 
IN4042GC 
IN4043GC 
IN4 Uh 40 C 
IN4045CC 
IN404e0C 
IN4C47CC 
IN4G48GC 
IN4C49CC 
IN4U5CCG 
IN40510G 
IN4J52GC 
IN4053C0 
IN4054G0 
IN4055GC 
IN4056CC 








1 * 


4 


0 - 


0 

1 

N> 

■vj 


c 

c 


in i 
VPFi 


l -i ♦ 

tte: 


u 


2 or 


22C 
2 50 


C • • • • 

300 


c* • • • 
c« • • • 

c • • • • 

c • • • • 

c • • • • 

c • • • • 


3lG 


?2C 


ic = ra 

ypoc;R RIGHT 
ID = lA + 5 
IF (LAX (lA » 

* OP.LAxCC) 
60 TO 3CG 
-CALL GEMlC 
IWSYM = 

ICHK = ICH< 
GO TC 5 
WRITE (o,25Q ) 
FC=»MAT(" UN 
CL=C . 

04 =.. 

T4=0. 

RETURN 

.TMTERPOLZTIO 
call INTLL(0 
CALL INTLL(D 
CALL INTLL(T 
.FELATIVc LON 
DLQN = (CLQN 
.RELATIVE lAT 
DLAT = (CLAT 
DPX=P(IP.IH> 
.UP/CX FOR GF 
DFX = QFX ♦ 


UT£ R'^OLA TIOM INCEX 

Interpolation index 

a.N3(l) .OR.LAX(IA) .1Q,N5(2I • OR. L AX ( 10) . N£, LAX ( I A) 
.NE.LAX(IA».0F,LAX (ir ) .-JEaLAX (lA) ) IWSY»^=**»*' 


•f 1 


AdLc TO GLN£R:AT£ A-0 GRIO") 


dtx = 

.DT/GX 
DTX = 
opy = 
.op/or 

ocy r 

DTY = 
.DT/GY 
DTY = 


T(I3,I 
FOR TH 
DTX ♦ 
PdC.I 
FOR GE 
0°Y ♦ 
TdC.i 
FOR TH 
DTY ♦ 


IF (NG.GT.9) 
DPXX = ti. 
OPYY = C. 
OPXY = C. 
RETURN 
OPXY = 

IF 

11 

12 - IB 
15 = IC 

iH = in + 1 
SX = 1. 

GO TO 


N FOR POSITION INSIDE 16 POINT GRID QR POLAR GRID 
.lA, I9.IC, rO,F4,GLAT*GLON,CLAT,CLON,IH| 

,IA « Id,IC, n.C^.GLAT.GLON.CLAT.CLON, IK) 
f lA * IB.IC. I0»T 4.GLAT .GLON.CLAT .CLON. IH) 

GITUOE DISPLACEPENT FROM REFERENCE POSITION (lA) 

- GLQN( lA) ) /(GLON (10) - GLONdA)) 

ITUDE DISPLACEMENT FROM REFERENCE POSITION(IA) 

- GLAT(IAn/(GLAT(IC) - GLATdA)) 

«P(IA, IH) 

05TR0PHIC WINC EOUATION3 
(°dO,IH) - PdC.IH) - DPX)*DLAT 
H) - T(IA.IH) 

ERMAL WIND EOLATIONS 

(TdO.IH) - TdCtiH) - OTX)*OLAT 

H) - P(IA*IH) 

03TR0PHIC WIND EQUATIONS 
(P(ID,IH) - Pdl.IH) - OPY)*DLON 
■H) - T(IA.IH) 

ERHAL WIND EQUATIONS 
(TdOflH) - TdB.IH) - 0TY)*0L0N 
30 TO Ein 


FdO, 
(MOO (IB • 't 
= lA 

+ 1 


H) - o(IC,IH) - P(IB,IH) 
) .EQ.0) GO TO 520 


♦ 3(IA,IHI 


1 7 


11 

12 

13 

14 


= lA 
= 19 
= IC 
= ID 


30 


. 1 


- 1 


sx=-i 


IN4o570C 

IN4058CC 

IN<tC59CC 

lN4ucQC0 

IN4C610G 

IN1.C62CC 

IN 406300 

IN4C64CC 

IN4065CC 

IN 4 C 660 rj 

IN40570C 

IN406d00 

IN40690C 

IN4C7CCC 

IN4C71CC 

IN4U720D 

IN4C730C 

IM4074CC 

IN4075CC 

IN4076CC 

IN4C770C 

IN407800 

IN4079C0 

IN408CGG 

IN4G910C 

IN4Q32CC 

IN40330C 

IN4Q34CC 

IN40350G 

IN43850C 

IN40870C 

1N4088CC 

IN4089CC 

1N4090CC 

iN4egioc 

lN4a92CG 

IN4093GC 

IN4Q94CC 

IN4C95QC 

IN4C96GG 

IN4C970C 

IN4098CG 

IN4C99GC 

IN410CQC 

lN4iaiOG 

IN410200 

IN4103CD 

IN4104CC 

IN41050C 

IN4106C0 

IN4107C0 

IN 41080 G 

IN41090C 

IN411CCC 

IN4111CG 

IM4112CC 




0 


T 





ti 


0 




0 

1 

ro 

00 


3 3 r I F ( L A A (I H . M E .L 4 X ( I A ) . OR . L A < ( 1 2 I . f vE . LAX < 1 A I . OR . L A X { 1 3 1- .N E . 

♦ LA X ( lA ) .OR. lax (l4> , NE.L'AX ( ran go ro 363 
OPXX = F(I2.IH> - 

DPXX = CFXX + (P(U*,IHI - P(I3,IH) - C=»XX»*DLAT 
IF HC.Gr.l2) GO TO 340 

11 = lA 

12 - IC + 4 

13 = IP 

14 = 10 ♦ i. 

Sv = *. 

GO TO 35? 

34C li = I A - 4 

12 = IC 

13 = la - 4 

14 - 10 
S V ^ • i • 

35C IF(LAX(I1).N£.L4X(IA ) . 0=» .L AX ( 12 ) . NE . L AX ( I A ) . OK .LA X ( I 3» .ME. 

* lAX { lA) .CR. LAX (l4) . NE.LAX (lA) > GO TO 360 
OPTY = P(I2.IH) - Pdl.IH) 

DPYY = 0°YY + d(I4»IH) - 0(13,14) - 0OYY)*DL0N 
DPXX =(OrXX - 2.*0PX )*SX 
DPYY =(OPYY - 2.*0PY )*SY 
PfcTURM 

360 DPXX = 0. 

OPYY = u. 

CPXY = G. 

iwsym = 

RETURN -- 

AMD 


IN411300 

IN4114QC 

IN4115CC 

IN4116CC 

IN4117CC 

INi,118:-C 

IN4119CG 

IN4l2aCG 

IN4121GC 

rN41220Q 

IN4123C0 

IN41240C 

IN4125CC 

IN4126C0 

IN4127C0 

IN4128CD 

IN412900 

IN4130C0 

lN<»13iCC 

IN4132CG 

IM41330C 

IN413400 

IN4135C0 

IN41360C' 

IN4137C0 

IN413800 

IN4139C0 

IN414C0C' 

lN4i**lCC 






ooo 








♦ 


S U 3 0,U T i N I I KT L L ( F :* I A , 1 3 ♦ I C » I C ♦ F L L , 3 L A T , G L 0 M, C L a T , ON , I H ) 

. .. .. INTihPOLATiS FUKCTION (AR^AYJ F FRO'^ VALUES OF GlAT AND GLOM AT 
INDEX VAL'J“S IA, 18, IC, IC TO CJTCUT VALUE FLL AT HEIGHT IH 
AND FOSITION CLAT, CLON 
dimension F(1o,E6) ,GLAT(1&) ,GL0N(16) 

C NORMALIZES LONGITUDE CISFLACEMEnT 

IF(F(IA,I^’)*F(IJ,IH)*F(IC,I^>*F(IO,IM)^ 2Q,1P,2 0 
10 fll=c. 

RF TlKN 

20 X = (CLON-GLO.N(n) )/(GLON(lA) -GLONdB) » 
c *.#.. normalizes latituoe cisflacement 

y = (CLAT-GLAT(iA) )/<GLAT(IC) -GLAT (IA) » 

C.....TWO DIMENSIONAL INTERPOLATION 

FLL = F(IJ,IH) ♦(FdO.IH) -F{IB,IH))*Y + (F(IA,IH) -F(I8,IHn*X 
1 +(FdC,IW)-F(lA,IH)-F(ID,IH)+F(I8,IH»)*X*Y 

fltijfn 

-END 


INLCOICC 

iNLoaaoG 

INLC03C0 

inlogmog 

INL005CC 

INL006CC 

INLCG7CC 

rNLoaaco 

INL0a9CQ 

INLOlOGO 

INLOllOC 

INLG120C 

INLG13G0 

INL014CC 

INLC15GC 

INL016C0 

INLG17C0 



o 


0 

1 

Co 

o 


C 

C 

c 

c 

c 


n 

c 

c 


c 

c 

c 


c 

c 

c 


^ i \ ^ 

Sl;i«GUTiKE (LALOM.I . 

St^RadTINR TG I,>iTER=3DLATE VALUES 

CiMfNSION XLL(‘f) » YLL (A) ,XC(4> , VGfG) 

CCri^CN/I^T/D (£u S,5) , IG (5) , GXV (2) tGLA (/4) ,DL0f4l 

0EG?A0 = 3»iA15 ?/i^0 • 

LALC=IARS (LAlGN) 

Ll = i.aL3/lG0QQ 

L?=cALO-Ll»l0uC0 

XL=L1/10. 

VL=L2/1J. 

IP (IG(5)-2I 3C »2u*10 
10 IP (IG(3)-3) 30,30.50 

IMGPPCLATE FROM NMC 0^13 

20 CO^JTINIJE 

CO 25 L=l,26 
DO 22 J=i,4 

IF fO fL, J) .LT.J .Gil GO TO 25 
no 24 K=l,8 
I=(<-l>*26<-L 

0(I,5J = ( 1 .-DXY( 2 ) )♦( (i.-oxy (1> »*D( 1,1 >^OXT(l) ♦0(1,2 ) ) 

1 +0XY (2) ♦ ( ( (i.-DXf (1 J)*0(I, ?)MaXY(i)*0M,4l ) 

24 CONTI rrjF 

25 CONTINUE 

F£TiJFN 

interpolate. FxOM tOUATION FOR S3UTH£PN MEMISPH£R£ GRID 

30 CONTINUE 
00 32 J=l,2 
XLL<J)=DLA(JI 

yLL(J) =DLC( J) 

IF ((YL.r,F,?p5. ) .AND. TYLL (Jl .LT.Q.Oll) YLL(J)=360. 

32 CONTINUE 

X=(YLLa)-YL)X3. 
y=(XL-XLL(l» )/5. 

IF (IG(5).£Q.3) Y=-Y 
00 L=1.26 

DO 56 J=i,4 

IF (0(L, J> .LT.G. Cl) GO TO 38 


22 


-JO 


no 37 <=1,8 


I=(<-1)»2F+L 

0(1,5) =D(I,i) ♦X* (0(1 ,2) -0(1,1) ) ♦Y* (0(1, 3) -3(1 ,11 ) 4-X*Y* 
1 (D(I,4) -D(I, 3) -0(1,2) ♦D(T,i) ) 

17 continue 
38 CGNTINUF. 

PET'JPM 

INTERPOLATE FROM ACROSS GRIDS 
50 CONTINUE 


iNPcaico 

INPC02CC 

INPC030C 

INPC34CC 

INPCiSC'C 

INP036CC 

INFC37CC 

INPC58CC 

INP0U9GG 

INPGIOCG 

INPOllGG 

INPul2CC 

INP013CG 

INP0140C 

INPC15LC 

INP0160G 

INPG17CC 

INP0180C 

INP01900 

INP02GCC 

INP02K3G 

INP022C0 

INP023CC 

INP024(;0 

INP025CC 

INP026CG 

INP027CC 

INPS2800 

INP029C0 

INP030CO 

INPC3100 

INPC32CC 

INPQ33C0 

INP0340C 

INPu350C 

INP0360C 

INPC37G0 

INP038CG 

INP039CO 

INPQ4CCC 

INP041CO 

INPC420G 

INPC43CC 

INPuh400 

INPG45CC 

INPG460C 

INP047QG 

INP04800 

INP0490C 

INPU5QQC 

INP051CC 

INP0320C 

INP053C0 

INO 054 CC 

INPG5500 

INPC5c(iC 




* 


k 




IF (13(5 ).N£. *13 3) GO TO 
IG(5)“3 
GO TO ,3 0 
S5 CONTINUl! 

IF (IG(5» .Ni. 333) GO TO bC- 
OLO(1) = (CLQ (s.>+OLO(3) »/2. 

DC ^2 I t 20 ■? 

52 D(I.4)=D(I,3» 

DLA(U)=OLP (3) 

DL0(4) =DLC ( ! ) 

&(, CONTlNUi: 

XLL(I)=DlA(I) 

yll (Denied) 

IF ( (Yl.GT. 350 . ) .AKO. (YLLUI .LT. C.Ol) » YLL(I)=350. 

e? coNTiNue 
TTH = C 

X=YLL (1) -YL 
Y=XL-XLL (1 ) 

63 CONTINUS 
DO 65 1=2,4 
XC(I>=YLL(1)-YLL(H 

65 YC(I)=XLLCI) -XLL(l) 

TH2=3. 14159/4 
TF3=3. 14159/4 

IF (A3S(XC(2)».GT.0.al) TH2 = AT A N ( YC (21 / XC (2)1 
IF (A95 (YC(3 ) ) .GT.6. 01) TH3 = AT AN (XC ( 3 ) /YC ( 3 ) ) 

IF (XC(2) .LT.ii.) TH2 = 3.141594TH2 
IF (XC(3) .LT,0. ) TH3=3.14159+TH3 
ONN=COS(TH2+TH3) 

IF (AES(CNN).GT.O.Otl) GO TO 66 
ITH=ITH+1 

IF fITH.En.2) GO TO 66 
XLL(3)=XLL(4) 

YLL (3) =YLL (4) 

DO 61 1 = 1, 

61 D(I,3) =D(I,4) 

GO TO 63 

66 CONTINUE 

7A=SQPT (XC(t ) ♦♦24YC ( 2) *-*2> 

IF (ITH.LT. 2) GO TO 69 
Z-3QFJ l)(**l*y**l) 

E=0. 

24=0. 

GO TO 71 
69 continue 

E*>=SQRT (XC< 3 )**2 4YC(3) *»2) 

24= (XC(4) *C0S(TH3) -YC(4) *SIN(TH?I ) /ONN 
F L. = { Y C f 4 )♦ C 0 5 { TH 2 ) -X C ( 4 )♦ S I N (TH 2 ) ) / D N N 
Z=(X*COS(TH3 ) -Y*SIM(TH3) ) /ONN 
E= (Y*C0S(TH2 ) -X*SIN(TH2> ) /ONN 

p = Q. 

c=o. 

nr=o. 

c- 

71 CONTInUc 


INPU57CC 

INF05e(3C 

INP05900 

INP0600C 

INPQ 61 GC 

INPC62CC 

INPC63C0 

INPC64GG 

INP065CC 

INP0660G 

INPC67CC 

iNPoeaoc 

INP069C0 

INPQ70CC 

IMPC71GC 

INPG72CC 

INPC7300 

INPD74CC 

INP0750C 

INPC76C0 

INPC77GG 

INP07a00 

INP0790C 

INPG900C 

INPG910C 

INP0a20C 

INP093C0 

INP084GG 

INPC95CG 

INPU96CC 

INP0370C 

INPOaSCG 

INP089CD 

INP090GG 

INP091GC 

INP092CC 

INP093CC 

INP094CC 

INPC95GC 

INPC96CC 

INP0970C 

iNPcgecc 

INP099CC 

INPIOOCG 

INPIOICC 

INP1020C 

INP10300 

INP104CG 

INP1Q5GC 

INP106CC 

INP107CC 

INP138CC 

INP109(.G 

INPllOOO 

INPlllOC 

INP112CC 


4 


4 


A 





DC ’’C L = l,^b 
DC •.■3 J-1.- 

66 IF (0{LtJ).LT.O.OA) GO TO 70 
or- 6 7 <=!•« 

I=(K-1I»26+L 

£=D(1,1) 

IF (ZA.GT.t.-^l) B=(0(I,2)-Q(I,1>)/ZA 
IF (E9.GT.C.01) C=(Q{I,3I -O(Itl) >/E3 
IF ( (ABSCZ-*) .GT. u .Oi ) .AND. C A 3S (£4 ) .G T . 3 . 01 ) ) 
1 ru=(0(I,‘4) -A-B*Z^-C»c4) /(Z-4»E4) 

D(I,5> = A + c*Z+C*£ + DD*Z*E 

67 CONTINUL 
70 CONTINUE 

Ft TURN 
^ FfO 


lNPil3GC 

INP114CC 

INF1150C 

INPllcCO 

IMP117CC 

INP118C-0 

INP11900 

INFiaOGO 

INPlZliiC 

INP122C0 

INPl23Ct 

INP12400 

INP1250G 

INP126CC 

INF127GC 


0 

1 

U) 

ro 


OC-r 


f 












SinP3L)TIf,£ i'‘r>'U\/(UK .V-^,H,PMI,SUH,S»/MJ 
C..... FINDS Wim STfiNQAkQ DEVIATICN £T HEIGHT H fKH), LATITUDE 

C PHI (D'GkEESJ, FP.OH UP AND VP Apwavs 

DIMENSION U-(-25,1C) , ^F (2 5,1C> 

- LO^EF HEIGHT IHOEX 
ir (m.lt,95.» I = 1 ♦ IHT(H) / ? 

IF (H,GE.q5.) I =13+ < INT(h> 0 ) /L :• 
ir (I.GT.25> I = 25 
C UPPER HEIGHT INDEX 

IP=I+X 

IF (IP.GT.E5) IP=25 
C LOWER LATITUDE INDEX 

J=INT(^HI+llk;.l /20 
C UPPER latitude INDEX 

JP=j+i 

IF <JP.GT.lGl JP=in 

c PHII - LOWE-^^ latitude fop IP AND VR AP*»AV VALUES 

FHIl=-ilO.+iC.*J 

C PHI2 - UF=LR LATITUDE FOR UR AND VR ARRAY VALUES 

PHI2=-110 .+20 .* JP 
IF (l.GT.iqJ GO TO lU 

C LONER HEIGHT FOR UR AND VP ARRAY VALUES 

Zi=5.*(I-ll 
GO TO 2C 
Zl=2v .*(I-15» 

IF <1P.GT.19) GO TO 2C 
t»opPR height fop UR AND VR ARRAY VALUES 
7t=5.*(IP-l) 

GG TO UO 

oC ZZ = 20. * {1° - 15» 
c interpolate on latitude at lower HFIGHT 

AO CALL INTERW(UP(I,J),VR(I,JI fPHIl.URd.JP) ,.VR(I,JP»tPHI2tUX*Vl* 
TPHI) 

C INTERPOLATE ON LATITUDE AT UPPER HEIGHT 

CALL INT£KW(UP(IP,J» , VR ( I P , J » , PH H , UR ( I P , JP) , VR ( IP, JP> ,OHI2,U2,V2, 
J°HI) 

C INTERPOLATE ON HEIGHT 

CALL INTERWCU1,V1,Z1,U2.V2,Z2,S'JH,SVH,H| 

RETURN' 

■ .END 


INVOOlCC 
INVfcOtfCC 
INVuQiCC 
INVC J4CC 
INVG05CC 
INV006CC 
INVGJ7CC 
iNVOOdCO 
INV009CO 
INVOIOCC 
INVCllCC 
INVuiZOO 
iNVCisrc 
INVGl<iCC 
INV015CC 
iNvoiect 
iNvaizop 
INV018CC 
INV019CC 
INV020CC 
INV021CC 
INVC22CC 
INV023C0 
INVC24CC 
INV0250C 
INV026C0 
INVD27GC 
1NV0260C 
INV029CC 
INV03Q0G 
INV031GG 
INVG32CG 
INV0330C 
INV034Q0 
INV035PG 
1NV0360C 
1NV0370C 
lNVt;380C 
INV0390C 
INVC40CC 


SUbnCUXlJfcie. JAC(ZtT 

NSA * c 
MN, IDA, lYR 


0 

1 

CO 


c 

C 

C 


C 

C 


c 

c 

c 


c 

c 

c 


7D 

C 

C 

C 


C(Z*TZ, OE-^3) 

/I DTEMi , I CrEM2 , I'JG, Nf'COP XMJO, PHIl, !>HI, 

AMLtftPi. ^ 01 , RTl, SOI. STl, RUlf RVl, 5 U 1 , 
MN, IDA, lYR, HI, PHI1R,TH£T1 R,G,RI,H,PHIR,TH£TR,Fi0,F10B,Ao, 
IH-, •'!TN,nM09£,DX,HL,^L.0Z 

C0M^-GM/C0.^JAC/XLAT,XL0NG,SDA.SHA,0Y, Y,T,cm 

OlMrr.’SrON ALPHA ( 6» ,E I (6) * (6) » 9(7),DIT(6) 

or = mo. 

r/NTfl A I ohA/O.u, D.J.D .C.O.C, -0.33, 0.0/ 

£«.0li A, 31.0983.15.9994, 39 . 94 3, A . 0 026 ,1 . Q 0797/ 
3.1 p20h,- 0.0 fl55?o.l.2S4£-GA,-l. 005&E-C5,-i’. 02lF-*C5^ 
G6»9.9826£''’G8/ 

97F25 


01 Ml 

or = mo. 

CATA ALPHA/O 
DATA tI/2‘ ~ 

DATA 3/2 3 . ip , -U . 
11.5044£-G6»9.9826£> 
A V=6 .02257E25 
n^’=. 7811 C 
nCi=. 20955 
DAS.CQ 93 A 3 
OHE = 1.239E-5 
FK=6. 51432 


TEMOEOAT'JRE at Z = 125 KM, EO. 9 

TX-Aah* :e07+, j2385*T - 392 . 329?»EXO ( - . CO 21357*T) 
A2=2.*( T-TX) /3. 14159265 


DIT ( 6 ) =C . 
M = 1 P 

5P3 = . C-OCl 


TLMPCRATUPE FOR 9(3_Z_l_25t EO. 1.0 
Tl-1.9* (TX-183.) /35. 

T4=3.*{TX-183.-2.^T1*35./3. » /(35.*»4» 

T?=-Ti/( 3.*35.**2 »+a,»T4*35. /3. 

TZ=TX^T1*(7-i 25. I ♦T3*CZ-1?5. )**3*T4*fZ-l25.) ♦♦A 
IF (7-1U5.I 43,43,4C 

MEAN molecular WEIGHT FOR 90_Z_1Q5, EQ. 1 
43 72 = Z - CD 

FM=1(1) ♦3(2)»Z2*^9(3) ♦Z2**240 (4>*Z2»*3^P(5) *Z2**44 0<6> *Z2**5 
1^P(7) *ZL**b ' _ 

C=Z 

CONTINUE 

INTEG'^ATICN of ED. 5 FOR DENSITY BETWEEN 90_Z_l05 
A = 9C. 

FA = B(l)+9(2)*{A-.lQ» + R(3)»(A-CQ)»»2«-i'’(4l»fA-QO) ♦♦ 3 +B ( 5 ) * ( A-QQ) **4 
1H-B(6) ♦ ( A-QO) **5 +9 (7 ) ♦ lA-QQ » **6 
FA-FA^g. 80 63 p/( (1 .-i-A /6 . 356 766E + 3 ) *♦2) 

FAsFA/ ( rx + Ti* (A-125. ) <-T3* (A-125. )**.5 +T4*( A-125. » ♦♦4) 

FO^edJ + 3(2) ♦(D-QQ) 4-9 (3) ♦<D-QQm*2*0 (4 ) ♦ ( Q-QQ ) ♦♦3+0 ( 5 ) ♦ ( o-QQ) ♦•A 
l*e(6l* (C-CQ)»*5 ♦R(7)*(0-QQ)**6 
FD=Fn*9. 3L-66 p/((1.+0/6.356 766E + 3)»*2) 

FD=FO/ (TX+Tl* (D-125.)+T3»(D-125.)**3 +r4*( D-125.>**4) 


JACOQIOO 

JAC0020C 

•JACC03P0 

JACw04C0 

JACG05CC 

JACGOeCO 

JACC070G 

JAC009CC 

JAC0090C 

JAC3130C 

JACQllCC 

JAC0120C 

JAGC1300 

JAC01400 

JAC0130C 

JACGieCC 

JAC01700 

JACG18CC 

JACQ1900 

JACC20CC 

JAC02100 

JAC022CC 

JAC02300 

JAC02400 

JACC25CG 

JACC26C0 

JAC02700 

JAC028C0 

JAC029CC 

JACQ3000 

JAC03100 

JAC03200 

JAC0330C 

JAC034CC 

JAC0350C 

JACC360C 

JACG37G0 

JAC0380Q 

JACQ390C 

JAC040CG 

JACG410C 

JACC42CC 

JAC043CC 

JACQ4400 

JAC045G0 

JACQ4600 

JAC047C0 

JACG480C 

JACC49CC 

JACGSOCC 

JACG51GC 

JAC0520C 

JACQ53Q0 

JAC054CC 

JAC0550C 

JACQ56CC 
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¥■ 






73 


74 

o 


CO 

cn 

75 



c 
■ ^ 

r 



SFan, SIM=3JN3 ^Ul£ GlAORaTURE - ^.F.KUNCIff 
DE- IMTTONS - - 

A - LOWEP. LIMIT OF INT£GRATI0‘4 
D -UPPER limit of INTEGRATION 
FUnC = INTEGR A NO function SU'?=’R0GRAM 
rqc ■= relative ERFOR CONVERGENCE CRITERION 

M = MAXIMUM NtiMBER OF INTEGRATIONS 

P = PtSULT OF integration 

N = NLIMEER OF INTE GRATJCNSOP IQ& IR 10 TO FIND R 

fUNT = 1 
N = U 

PR€V = G. 

SCNE=(0-A)*<FA<>F0)/2. 

N = N*1 

IF (N-M) 7E»72,75 
MINT = Z * NINT 
STWO-D. 

DEL =< D-A J /FLOAT ( NINT » 

DO 73 1=1, NINT, 2 
>=A>D£L*FL0AT(I) 

FX = 1 (II +R f2) ♦(X-QQI + B (3)*(X-QQI*»2 + B(4>*CX-Q0)*^3*B(5)»CX«aQ|**4 
1FB(6)* (X-QQ) **5 ^3(7)*(X-0QI**6 
FX = FX*9. 8 0 66 5/C (1-.*X/6.356 766Ef3)»*2I 
FX=FX/(tx+Ti*(X- 125.) +T3*(X-l25. +T4* C X-125 . I **4 ) 

, STW0=STW0*FX 
CUR=S0NE*A,*QEL*STW0 

IF (£PS»ABS(CUR)-ABS(CUP-PREV) I 74,75,75 
FREV=CUR 

SCNE = (30N£ + CURI /4. 

GO TO 71 
R=CUR/5 

IF (Z-105.) •♦^,76,44 
IF (0-1l5.) 76,55,76 

DENSITY FOR y-_Z_lC5 

DENS = 3.4 6£-9»ie5.*£M*EXP(-P/FK) /(TZ*2 8.87-3) 

OL=ALOGlO (DENS) 

PAR=AV»D£N3/Em 
AN sALOGlO (QN»ZM*PAR/2d,96) 

AA=ALOGlO (QA*: m*PAR/26.96) 

AH£ = ALOG10 nH.£*£M*DAR/26.96) . 

AO=AL06lO (2. +PAR* (1. -£M/28,96) ) 

A02=ALOGlO (°AR* (EM*<1.+002) /28.96-1. » I 
AHs-0. 

«?truPN 


TIMPEFATURE AND MEAN MOLECULAR WEIGHT AT Z=lC5 KM 


73=105. 

TZ3 = TX + '^1* ( Z 3-12 5. ) ♦tE ♦ ( z 2-1 25 ) ♦♦ 3*T^» ( Z3-12 5 I **4 
ZM3 = e(il>o(2l* 5.>3(5I* 25.FB(4)» 125. •►BCS)* 5.*»4. 
1+P(7I* 5.**6. 

D=1C5. 

GO TO 7G 


♦0(61* 5. ♦* 5. 


JACQ570E 

JAC058QC 

JACG590C 

JAC0600C 

JAC0610C 

JAC062CC 

JAC0630D 

JACC64CC 

JAC065CC 

JACG660C 

JACC67Ce 

JAC0690G 

JAC0690C 

JACC700C 

JACC7100 

JACC-7200 

JAC073C0 

JAC0740C 

JACG750C 

JACC760C 

JAC07700 

JAC0780C 

JAC0790C 

JAC0800C 

JACC810C 

JAC0820C 

JAC08300 

JACC840C 

JAC08500 

JACG8600 

JACu970C 

JACO 8SGC 

JACG890C 

JAC090Q0 

JAC0910C 

JACC920C 

JAC093D0 

JAC0940C 

JAC095C0 

JAC0960D 

JAC0970G 

JAC098GC 

JAC0990G 

JAClOGCO 

JAClOiOO 

JAC10200 

JAC1O3G0 

JAC10400 

JAC105C0 

JAClOeOC 

JAC1070G 

JAC108GC 

JAC1U9CC 

JACllOOC 

JACIUCO 

JAC1120G 
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c 

c 

C 

55 


56 

C 

C 

c 


5C 


51 

o 

■' 

31 

CO 

O' 

82 

i \ 

!; Vii:.. 

52 

S'* 


84 

: U ' 

85 

C 

C 
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DZNJSirv AT Z=1G5 KM ' 

DhNl = .?.<4e'^-9*i3^ . *ZM3»‘:XP(-=>/FK) /(TZ3*38, aZ*?) 

Pf;^ = flV*DFM/ZM3 

OI(i> =nN*ZM-3»OAft/2fi. 96 

DI(Z» =^A*?»{ZM5» (i,+QOc> /2 6. 96-1 . ) 

0IC3) =2.*?AP*(i,-rM3/28.96) 

DI (:*) =QA*ZM3*‘3fti:^/2 8. 96 
DI(5) =QHE»ZM3 *PAo/ 28.96 
J F ( Z - i 2 5 • ) 6 6 ♦ 5 6 » 9 C 
GCNTIN'JE 

INTEGRATICN OF £0. 6 FOR DENS IJX. -AmV.F--liI-5--<-M : 

A1.= 1C5. 

FA1 = 9. 3C665/{ fl. «-Ai/6. 35 6766E + 3)**2) 

FAl = FAl/(Tx + Ti*{A*-i 25.) +^3*( Ai-l25. > **3 +T4* ( A 1 -125. ) **4 ) 

01 = Z 

FDi = 9.3G665/Ul. +01/6. 75 6766E + 3) *♦2) 

IFC01-i25.) ‘♦5t‘+5»5E 

F01=FD1/(TX4-T1*(D1-125.» ♦T3»(D1-1Z5.)»*3*T4*(D1-125.)**4) 

GO TO 51 

Fni=F01/ tTX+A2*ATAN(Ti*(Di-l25» ' ♦(1.+4.5E-6*(01-125. )**2.5) /A2») 
TZ=TX + A2*ATAM(T1*(Z-125. 5E-6* (Z-125.)**2,5)/A2) 

N=^3 

MNT = 1 
FREV=0 

S0N£=(ai-Al)*(FAl+F01>/2. 

N=N + 1 ■ ■■ 

IF (N-M) 82f82.85 

NINT - 2 * NINT 
STWO=0. 

0£L=(01-A1) /FLOAT (NINT) 

DO 67 I=1.NINT,2 
X1=A1+0€L*FL0AT( I) 

FXi=E 5 30 665/ ((!.♦)( 1/3. 356766E + 3 ) **2) 

IF(X1-125.) 46.^6,52 

FX1 = FX1/(TX4-T1*(X1-125. ) ♦T3* ( X 1-1 2 5 . ) ♦* 3+T ( Xl-125 . I ♦♦4 ) 

GO TO 37 

FXl=FXi/(TX + A2*ATAN(Tl*(Xl-125.» *(1.+4.5E-6*CX1-125.I»*2.5)/A2)) 

STW0=STW0+FX1 

CtJR = S0NE»4,»CEL»STW0 

IF (EPS*A6S(CUR) -ABSCCUR-OREV) ) 34,35.65 

FFEV = CUP - 

S0NE=(S0NF+CUR) /4. 

GO TO 61 
R=CUF/3. 

DENSITY AEJVi 1 j5 KM 
CC 41 1=1,5 

DIT(I) =DI (I) ♦(TZ3/TZ) ♦♦(l.+ALOHA(I) »*£XP(-£I(I)*R/F<I 

CONTINUE 

DtNS = C 
DGi»2I = 1.6 


JAC1130C 

JAC1140C 

JAC1150C 

JAClieCC 

JAC1170C 

JAC1130e 

JAC119CC 

JAC120CCh 

JAC121CC 

JAC122QC 

JAC123CC< 

JAC124CC 

JAC125L-0 

jA Cl 26 on 

JAC127CC 
JAC126GC 
JAC129D0 
JAC13QCC 
JA Cl 31 to 
JA Cl 32 00 
JAC133CC 
JAC1340C 
JAC135CC 
JAC136C0 
JAC137C0 
JAC1380C 
JACi39CC 
JACl4aSG 
JAC1410C 
JACl42CC 
JAC14300 
JAC1440C 
JAC14500 
JAC146G0 
JAC14700 
JACl4eOC 
JAC149C0 
JAC150CC 
JAC1510C 
JAC152CC 
JAC153CG 
"JAC15400 
JAC1550C 
JAC15600 
JAC157eC 
JAC15600 
JAC159GC 
JAC160CC 
JAC161CC 
JAC162CC 
JAC16300 
JAC164GC 
JAC165QC 
JAC16600 
JAC1670C 
JAC168(3(; 


1 


DEM 

S=DiNS 

♦ 

'I 

( r> 

CCN 

TIMIE 




M”A 

N MOLE 

c 

UL 

AR WEI 

EM= 

DENS ♦A 

V 

/ ( 

OIT(i) 

LOG 

CENSI 

TY 


DL= 

ALQGlD 

( 

0£ 

N5> 

AN 

=AL0G1 

n 

(D 

IT(i) » 

A02 

=ALOGi 

0 

(0 

IT(2> 1 

AO 

sALOGl 

ti 

(D 

iT(7n 

AA 

=alogi 

c 

(3 

IT(4) ) 

AHc 

=alogi 


(9 

IT(5) ) 

IFf 

Z-5U0 . 

) 


7,43,4 

niT 

(6)=10 

• 

^ ¥ 

(-6) 

AH = 

ALOGIO 

( 

01 

T(&) ) 

AN 

= A MAXl 

( 

-Q 

., AN) 

A02 

= AMAX1 

( 

“0 

.,A02) 

AO 

= AMAX1 

( 

-C 

AO) 

AA 

= AMAX1 

( 

— G 

., AA) 

AHE 

=AMAXi 

( 

-0 

. ,AHE) 

AH 

= AMAX1 

( 

-0 

• « AH) 


RtrUPN 

TcMPEPATURt AND DENSITr AT 2=500 


S=TX>A2*ATAN(T1*375. 5E>-6^‘375.*»2.5I /A2> 

Die 6) -1D.'»*{7 3. 13-39. A*AL CGI OtS) . G^ALOGlO ( S ) *ALOGl(H SI ) 
Al=5C0. 

IF(Z-50G.) 49,6J»oQ 


INTEG5AT1CN OF EQ. 6 FOR CENSITY FOR Z 125 KM 


Ag Ai=Z 

6C FAi = g.^}0€65/((l.+Al/6.356766E + 3l**2) 

FAl=FAl/(TX+AZ*ATANCTl*(Al-125.»*fl.+4.5E-6* (Al-125.l*-*2 .5r/A2>r 
. C1 = Z 

IF(Z-50G .> 61.62*62 

61 01=500. 

62 FDl=g. 30 665/ ( (1.+01/6. 356766E+3I ♦♦E) 

F01=FD1/{Tx+A 2*ATAN( Ti* (01-125. ) * (1 . ♦A. 5E-6 » ( 01-125 . ) ♦♦a . 5 ) /A2) ) 
N=0 

KINT =1 

P«^EV = 0 

SXNE= { Dl-Al I * (FA 14-FD 11/2. 

- N=N-H 

IF 92,93,95 

NINT = 2 -* .SIMT 
STWO=0, 

C£L=CDi-All /F lOAT(N1NTI 
CO 93 1=1, MINT, 2 
X1=A1+DEL»FL0AT (I) 

F>1=9. 3C665/ t(l .♦X1/6.356766E4?»**2» 

FX1=FX1/(TX* A2*ATAN(Tl»(Xl-i25.) ♦(l.+A.5£-6*(Xl-125.l**2.5)/A2) » 


JAC16500 

JAC1700C 

JAC1710G 

JAC172CC 

JAC1730C 

JAC174GC 

JAC1750C 

JAC1760C 

JAC177CG 

JAC178C0 

JAC1790C 

JAC180G0 

JACiaiOD 

JAC19200 

JAC1830C 

JAC18400 

JAC1850C 

JAC1860C 

JAC187C0 

JAC183O0 

JAC189QC 

JAC190G0 

JAC19100 

JAC1920C 

JAC193C0 

JAC19400 

JAC1950G 

JAC19600 

JAC19700 

JAC19800 

JAC1990C 

JAC200CC 

JAC201CC 

JAC202GO 

JAC203CC 

JAC204C0 

JAC20500 

^AC206CC 

JAC207CC 

JAC208CD 

JAC2a900 

JAC210QG 

JAC211CC 

JAC212G0 

JAC213C0 

JAC214C0 

JAC215CC 

JAC21600 

JAC2170C 

JAC2180C 

JAC219G0 

JAC220C0 

JAC2210G 

JAC222G0 

JAC22300 

JAC22400 


i 


4k. 







'I? STW3 = 5TW0 + FX* 

C(,'R = SONE+U . *ri£L*iTWC 

IF (LPS’AeS (CURI -ABS rCUP-FREV) I 94,^5.05 
9 £* Pi£V = CUP 

S0NE = (30NE + C'iR) /4, 

: :FC TO 91 
95 F = C'.)F/I. 

C' ' ■■■ 

C TiM = E‘?ATU‘^£ AT Z 50C KM 

C 

TZ=TX + AZ»ATA;4(T1*(Z-125. ) * (il .-Ht. 5E-5* ( t-125. > **2 .51 / A2) 
IF(Z-50C.> 63,64,64 

C ; 

C DENSITY GF HyOROGEN FOR Z 5CC KM 

C 

64 DIT(6) =ni (6» *(S/TZ)*£XP{-EI (6)*R/FK) 

GG TO 56 

rf.lQ 


JAC22S00 
JAC226CC 
JAC22700 
JAC22dOC 
JAC229C0 
JAC2300C 
JA C2 31 CC 
JAC2320C 
JAC2330D 
JAC234QC 
JAC235CC 
JAC236CC 
JAC2370C 
JAC23300 
JAC23900 
JAC2400C' 
JAC2410C 
JAC242Ce 
JAC243GC 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

n 

‘•a 

C 

c 

c 

c 

c 

c 

c 
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c 

u 

c 

c 
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c 

c 

c 
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SUJ-^Q'lTlKc JACCH fZ»PHly,THFT*PH*CH,TH) 

C C Mi- GN / C r ^ J A C /y. , A T , X L 0 NG , SO A , S 4A , DY ♦ # E M 

CCrir<ON/ICTEK^/I I3TEf^2 »I'JG,N^^COP, GO, XrtJQ, PHIl, PH I, 

. N3AM-, = oi, RHl, ^Tl, SPl, 301, 3T1, -Ul, RVl, Stil, 3V1, 

$ H « IDA, IXP, Ml, PHIl.P,TH£T:=!,G,fI,H,CLAT,CLDN , FlO , FI C B » AP , 

, IHR,r'IN,NMORE,DX,HL,\/L.nZ 

JACCH CALCULATES THE PRESSURE, DENSITY, AND TEMPERATURE AT A 
POINT IN SPACE ABOVE 90 KM FOP A PARTICULAR TIME 

INPUT 

Z = HEIGHT :N km 
PHIR - LATITUDE IN DACIANS 

THET = LONGITUDE IN DcGREES CO TO 360 DEGREES TURNING WESTWAROI 
FID = SOtaR kAOIO NCISE FLUX (XE - 32 WATTS/M**2) 

FlGB = .“1-DAY AVERAGE Fip 
AF = GEOMAGNETIC INDEX 

M = MONTH (For yearly mean variafles m is set to i3) 

IDA = DAY OF MONTH 
IYR = YEAR 

IHR = HOUR OF DAY (IjNlVtPSAL TIME) 

MIN = MINUTE (UNIVERSAL TIME) 

XMJD = MEAN JULIAN DAY (S£T EQUAL TO ZERO FOR ANNUAL MEAN) 

OD = DAY NUMBER WITH RESPECT TO JAN 0 OF YEAR IYR 
OUTPUT 

PH = PRESSURE IN UNITS OF NT/M*»2 
CH = DENSITY IN UNITS OF KG/M»*3 
TH - temperature in KELVIN DEGREES 

OD = DAY NUMBER WITH RESPECT TO JAM 1 OF YEAR IYR 

PcPLACEMENT of SUBROUTINE VARIABLES TO INSURE NO CHANGES IN THEM 

R = D.31 

XLAT - PHIR 

XLONG = THET 

IF CM. ED. 15) GO Tp 50 

CALCULATE SOLAR DEC. AND HOUR ANGLE 

CALL TME 

EXOSFHEPIC TEMPERATURl 

CALL TINF 
GO TC 75 
c 0 T = 1 G 0 0 . 0 

TEMPERATURE, MOLECULAR WEIGHT, ANG DENSITY WITHOUT SEASONAL 
VARIATIONS :: 

75 CALL JAC (Z,TH, DM) 

IF (M.EQ.13) GO TO 30C 
YCA =365.0 
J1 = MOO(IYP.-f) 

IP (Ji.tO.ij) YOA = 366. C 


JAHGOIOC 
JAHD32CC 
JAH u u 3 C C 
JAH0Q40C 
JAHQ05CC 
JAHCOcCG 
JAH0G7CC 
JAHOOdCC 
jAHoagoc 
JAHUIQOC 
JAHOllCD 
JAHG1200 
JAH013C0 
JAHOmCC 
JAHG15CC 
JAHC16PC 
JAHQ17GC 

jAHOiecc 

JAH019CD 

JAHG2GDC 

JAHU21T0 

JAH0221C 

JAH023C0 

JAHQ240G 

JAHOZSeC 

JAHD26QC 

JAH027QC 

JAH0230C 

JAH029C0 

JAH03QGC 

JAH031C0 

JAHC32C(3 

JAH0330G 

JAH0340G 

JAH0350C 

JAHG360C 

JAH037CC 

JAH03SCC 

JAHD39CC 

jAH 04 aoo 

JAHD41CC 

JAH042CC 

JAH043(5C 

JAHC440C 

JAH0450G 

JAH04&CG 

JAH047C& 

jAHg480C 

JAHC49CC 

JAH050G0 

JAHC51GC 

JAHC520G 

JAH05300 

JAH054CC 

JAHC55GC 

JAH056C0 



& 






c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 


C* = SlNf(36a. / * Q.iil7k5SZ°25 * (DQ ♦ laC.O)) 

IF (PHIS) 80, 7G,30 
70 CZ = O.C 
no TG 10 

80 C£ = (SIN(PHIx) 2 } * (PHIR / inS(=HIR|) 

Density iir-* susunal variations 

90 Z90 = Z - 90.0 

DLRHO = a.Ci ♦ Z9u ♦ E.X'’(-0.045 • Z90) • Cl * C2 
OH = OH * fX^fOL^HO) 

HOcECULAR WEIGHT WITH SEASONAL VARIATION 

IF (Z - 120. u) 100.100 ,i5C 
lOO EM = LM ♦ 0.GQ6 ♦ 290 * Cl 
GO TO 250 

15U IF (Z - ?c0.0» 2 jJ.25C.250 
200 nCM = £XP(-J,02*.2U ♦ Z90) * (0.0316 ♦ 290 - G. jCG£257 ^ Z90 * 
CM = £H ♦ DEM * C1*G .5 

tcmperature with seasonal variations 

25C IF (7-260.0) 270.3CO.30C 
270 211 C. =2-110.0 

CTH = -2.291753 * ZliC + C.C215L336 ♦ 2110*2110- A. 176667iE-05 
? (2llw ** 3) 

DTH = £XF(-0 .290655 * SORT ( A 9S ( Zll 0 ) ) > * OTH 
Tfj = TH ♦(OTH * Cl ♦ C2 *TH» / ICC.O 

DENSITY IN METRIC UMTS AND RRESSl)R£ CALCULATED 

300 OH - OH * 1003.0 

PH =((OH * 8.31432 ♦ TH) / EM) * 1003. 0 

RETURN 

END 


JAH0570C 
JAH0580C 
JAHU590C 
JAHCoOCC 
JAHC61CC 
JAH0620C 
JAH0620C 
JAH(26ACC 
JAH065CC 
JAHO66C0 
JAHC67CC 
JAHG66CC 
JAH069CC 
JAH07000 
JAH0710C 
JAHC72C0 
JAH073CC 
JAH074CC 
290) JAH075CC 
JAHC7600 
JAH07700 
JAH078CC 
JAHQ790C 
JAHOaOOC 
JAHC810G 
* JAHC82CG 
JAHQ630C 
JAH0840C 
JAHQ85CC 
JAHG86C0 
JAHC87CG 
JAH0880C 
JAH089GC 
JAH090CC 
JAH0910C 
JAH092CC 





BMBBSStfWMMSH 


4 




SlJ'3=>0UTI\'r NO^MALOl *D’> 

C . . . . . 0 CU Cc S- 2 -- A J 3 Q M NU M 3 E? S> € i t 

C WITH ZE^O MEAN- AND UNIT VAPIANCE 

P8AL L ' 

EG X = RANO(CI 

Y = 2»^ANC(C» - 1 
yy = X*'^2 
YY = Y*^Z 
S = XX + YY 
IF (S-1) 51»51»5u 
51 L - SQRT(-2 * AlOG(RAND(0) ) >/S 

01 = CXX-YY) *L 

02 = 2*X*y*L 
RETURN 

FNO 


NOfiColUt 

♦ ^IC<E0 FROM A NORMAL CIST, NORC02CC 

NOR003CC 

NORCOitCC 

NOR005Q0 

NOR006CC 

- NOR0070C 

NOR00800 

NOR00900 

NORGIOOC 

NORGllGG 

j NOR012CC 

‘ NORG13G0 

NOROIACC 

NOK015C0 






SUB^CUriNc fOTUV (PS-P, DSPf TSP,-eLaT, CLCM, IH, PS* 
f CPX* BPY* OTX, BTY. OP^X* 03 £Y, DPXY) 

. If.T£R=QLAT£S STATIONARY P£ RTUPBATI0N3 ON LATITUnS AND 
AT HEIGHT IH 

CIHENSION PS=>(8*1U,12) *OSP( 5*10,12 ) ,TSP(. 6, iO,l£» 

IF (IH.LT.32) GO TO 1C 
If ( 1 H,GT.«' 4 ) go to 2 C 


0 

1 

•Ck 

ro 


C • • • • 

c 


TSP* SLA 
DPXY) 


CLCN* IH* PS, OS, TS 


1C 

20 

f r> 


c • • • • 

c 

c 


c* • • • 

c 


CIHENSION . ^ 

IF (IH.LT. 32 ) 

.P ( 1 H,GT.«' 4 ) 
HEIGHT I'.'CEX < 

K = ( ( IH+4) /5» - 

GC TO 30 
K = (IH -2 0/10 
GO TO 30 

K — 8 

XLON = CLCN 
IF (CLON.LT.IO. » 
LOWER LONGITUDE 
J = lNT(CXLOri *■ 

• DLOt. - RELATIVE 
DLGN = (XLON - 3 
UPPER longitude 
JP = J +1 
IF (JP.GT. 12 ) J 3 =l 


if i 

LOWER LATITUDE INDEX I 
I p INT((CLAT + liU.)/20.) 
yPPEP LATITUDE INOFX To 

I°=1C 


IP = I+i 
IF (TP.GT.1G) 
.CLAT - PELATIV 


PDTCOlOC 
POT0020C= 
LONGITUDE POT0030G 
PDT0C4GC 
POT005CC 
POTCC6GC 
POT007CC 
PDT00800 
PDTG09CC 
PDTCIGOO 
POTGllGC 
PDTC12C0 
POT0130C 
POT01400 
P3T015CC 
POTC16GC 
POTP17CC 

OM CORNER RFFERENCE LOCA TIONPDTO 1 8 GC 

P0TC19CC 
PDT02000 
POT02100 
PDT0220C 
POT023CC 

PDT0240C 

INDEX I® PDT025CC 

POT0260C 

-At poToertic 

latitude OtVIATION FROM CORNER PfFERENCE LOCATION PDT02eC0 
110.1/20. ' PDT02gC'Q 

CQ^i ATTn.. PDT030CC 


= 360 

J 


♦ CLON 


XLON 
INDEX _ 

2 j.»/ 3 Q.) 

LONGITUDE DEVIATION 
C.*J * 20.)/30. 
INDEX 


uu*»i L.MIXIUUC. ut.yj.Miy.uri r 

PLAT = (CLAT-20.*! -f HO.I/20. 

FPESSUSE LAT-LON INTERPOLA T ION PDT0300C 

PS = FS<= (K, I, J) ♦(=»SF(K, IP* J) -PS° (<* I, J) )*DLAT-MP3P(K, I, JP| -PSP (K , I * JPDTG 3 1 0 C 
1) )*DLON+(FSP(<* IP, JP) -°SP(K*I* J3) -P3P(K,IP,J)+PSP(K,I,J) )*DLAT* POTa32CO 
5'Ginw PDT033CC 

LAT-LON interpolation 

T A. t \ ^ 


c . . . * 

c • • • • 

C . . • 

c • . , • 


EDLON ruiuoouL 

DENSITY LAT-LON INTERPOLATION POT0340C 

OS=CSF(K, I, J) +(OSP(<,IP* J) -03P(K*I,J) )'^0LAT+(03P(K,I,JF) -DSP (K , I , JPDTO 350 0 
1) >*OLONf (OSP (<, IP, JP I -DSP (K, I, UP) -DSP ( < , !» , J ) +OSP (K , I , J) »*OLAT* POTC36C0 
20L0N' POT037C0 

TENPERATUPE LAT-LON INTERPOLATION POT038CC 

TS=TSP(<. I,J) ♦( TSP (K,I°,J) -TSP(K,1,J) ) * OL AT-K TSP { K , I , JP) -TSO(<,I,JPDT0 39CC 
1) ) •DLON-MTSP(<* IP, JPJ -TSP(X, I, JP) -TSP ( < , IP, J » +TSP (K , I , J) )*DLAT* PDT04GCC 
2DLON PDTQ41G0 


2DLON 

.DPX - QP/CX FOP GEOSTROPHIC WINDS 
OCX = (C3F(K*I,J) - P3P{K*I*JP>) / 6. 

OPX = DPX + ( (PSO(K* IP, J) - PSP(<,I°,JP) )/6. 
- OP/OY FOR GEOSTROPHIC WINDS 


OPXI*OLAT 


.DPY - OP/OY FOR GEOSTROPHIC WIN 
OPY=(PSP(K, Jp,J) -PSP (K,I, Jl ) /4. 

DPY = DPY ( (PSP(K, IP, JO) - P30(<,I,J0) ) /4. - OPY)»DLON 


DPY = 
.DTX - 
OTX = 
DTX = 
.DTY - 
DTY = 
DTY = 


D°Y 

DT/OX FOR'^THEPMAL r,y.,,uu 
(TSP(<,I,J) - T5°(K,I,JP)) 
OTX + ( (TS0(K, IP, J) ' 

OT/CY FOR THERMAL 


WINDS 

I, JP) ) / b. 

. - TSP( K, I'O, j = ) ) /6. - QTX)*0LA'. 

^ ^ WINDS 

(T5P(K,IP,J) - TSP(K,I,J)) / 4. 

DTY ♦ ((T5P(K, IP,J?I - T3P(K,I,JO))/4. - OTY)*OLON 

n r\ -r r% n 


IF (IP.GT.D) GO TO DO 
QPXY = (P3P(K,IP,J) - °SD(K,IP 
= J - 1 


JX 


JO) - PSP(K,I,J) ♦ P30(K,I 


' , V ^ W V V 

PDTQ41G0 
POT0420G 
POT0430C 
POT044C0 
POT045GC 
PDT0460C 
POT047(30 
POT048CC 
POTc490P 
POT050CQ 
PDT05100 
POTG52CC 
PDTC5300 
POT054GC 
JP) ) /24,PaT055C0 
POT05600 


4 


0 

1 

CO 


90 


IF (JX. 
IV = 
0P2X 
CP2X 
DF2Y 
0P?Y 
FtTUFN 
DP2X = 
OP2V = 
DPXY = 
FETUPN 
FND 


LT.l) JX - JX ♦ 12 


I - 1 

= CFSP(K.I,JX) - °SP(<,I,JP») /5. 

= Co?X ♦ ( (PJP<K,IP,JX) - PSP(K,IP, JPII /6, - 
= (FSP(<,I=», J) - PSPCKt lY, J) ) /4. 

= CP2Y ♦ ( (°SP(K*IP*J?) - 0SP{K,IY, Jo»> /4.- 

k I 


DP2X)*CLAT 
DP2YJ ♦OLON 


0 . 

0 . 

C. 


POT0570C 

POTCsecc 

POT0590C 

POT060G0 

PDT061CC 

POTC62CC 

POTQ63CO 

POT064CG 

POT06500 

POT066C0 

POT067CC 

POTO60OO 



SUBSOUTINc 

COMf'ON/lCTiM^/IOTEMl ,I0TEr'2,IUG,Nf'C0O,GD#X*^J0*?Hll*^HI«NSAME, 
iPLl.DLi, TLlt SPc*.SOLlt3TLl»ULl* VLltSULl ,3VL1 ,MN, IO/i , IVR, 
1PH,olAT.4 

* PtCN,G,R,CH,GLAT,CLON,FlC ,Pl03,A^.IHR,MIN,NMCRE»OX,HL»VL.nZ, 
£P*£PSf I0FC,L3'3t<, I£T, PLAT,PSl,CSi,TSl,U3l,VSlf SPS1,SDS1, 

ISTSl, 5U3i.3V3i»l.'D31. VDS^ , U 3Ll ♦ VDLl o UGbZ , VO S2 ♦ UDLZ , V DL2 
COMMON /CCM3SS/S'^2,S02,3T2,F2,0Z,T2,U2, V2,3U2t3V2tCP* 
lo£2,CS2»TS2»!J32»VS2, 

2PL2,OL2,TL2,Uu2»VL2, 

3SPS2,SCS2»5r52fSUS2, SVS2, 
i.SPLd.S0L2,STL2, SUL2. 3VL2 
COMMC^/HI^COM/ OUMCil),T 

DX = P*SGRT( (CLAT-PLAT|**2 ♦ < COS (CLAT) * (CLON-aLONIl ♦♦21 

,.OX IS HCSIZONTAl distance PETH2EN oOSinONS “LATiPLON and CLAT 
AH = OCG. 

P ^ ~ D • 

HORIZOMT^L wavelength, KM 

HLL= AH + BH+CH 

CPHI = (9Q, - OHll»**2 

OHGT = £.22 + e.0C253»(SQPT{ABSCCHI^^3»> 

IF (CHGT,GT,5.) OHGT = 5. 


VQ3 = (11. 0 - Z.lOZE-i-^CPHn^OHGT 
VTS = (3.0 ♦ 5.i4&E-A*0®Hn*CHGT 
VHS = (6.2 - 3.6i5L'-A*DPHl) *OHGT 
VHL = (20.7 - i. S‘4bE-3*CPHl) *DHGT 
VTL s 7,3*0HGT 

VUL = (51.2 - 5()5'^--3*CPHl) ♦CHGT 

HLS = 2C. ♦ .J125»CH*CH 
IFCHI S.GT.hJJ.) HlS = AuC. 

HLS = (0X/Hu3>**2 


(OX/HLD**2 

pns = 1./EXP(3 QRT(HlS ♦ (0Z/V03l^^2> l 
PTS = l./EXP(3QRT(HtS + ( OZ/VTS> ♦♦2* I 
RVS = 1./EXP(SQRT(HL3 ♦ ( OZ / VUS > ♦♦Z > ) 

RCL = l./EXP(SQRT(HLL ♦ ( DZ/VCL ) ♦♦a) I 
RTL = l./EXP(SQRT(HLL ♦ ( DZ/7TL » ♦♦ 2 > > 

PVL = 1./EXP(30RT(HLL ♦ (OZ/VUL)**2»l 

call CORLAT ( AS, lS,CSt03«£S.FStGS*HS*AIS. AJS,AK3*SPSltSPS2,SDSl 
1 SOS2. STS1.STS2, SUSl*SUS2*SVSl.SVSZ»U0Sl.U0S2,V0Si*VaS2*R0S*RT 
2PVS) 

CALL CORLAT(Al, 3 L , CL , DL , E l , F L t GL , h L , A I L , A JL , A Kl* S FL l , S PL 2 , SOLI 
1 S0L2»STL1 *STw2.SULl .SUL2* SVL1.3VL2.UQL1.UOL2. VDL1.VOL2* 
2PDL,RTL»RVLI 
CALL NORMAL (ZOf ZT) 

DS2=AS»0S1^33»Z0 

TS2=CS*TSi*CS»Os2^ES»ZT 

PS2=CS2+TS2 

CALL NORn-Al ( Z3, ZT) 

llS2 = FS*fJ5i*GS*032+HS»Z0 

VS2=AIS»VS1+AJS»0S2+AKS*ZT 

call NOFr'AL(3D. ZT) 

CL2=AL*0l1»8L*Z0 

TL2=CL*TLi^OL*DL2+EL^ZT 

PL2=DL2*TL2 

CALL NOCf'AL (ZO, ZT) 


ptpcaicc 
PER202CC 
PER0U30C 
PSROOhCO 
PER005CC 
PEROUeCC 
PER007CC 
PER00800 
PERC09CD 
PEROIOCC 
PEROllCC 
PER01200 
PER0130C 
PERCIAOG 
.CLOPERClSOO 
’ PERG16C0 
PER017CC 
PERC13CC 
PER019C0 
PERG200C 
PER021QG 
PERG220C 
PERG23CC 
PERC2A0C 
PER0250P 
PER0260C 
PER027CC 
PERC28CG 
PEP0290C 
PERD3G0C 
PER0310C 
PER0320C 
PER03300 
PER0340C 
PER035CO 
PER03600 
PER037GC 
PER038GC 
4 PER0390C 
3« PER040CO 
PER0410G 
. PERC420C 
PERG^3CC 
PER04400 
PERG43C0 
PER0460C 
PER047CC 
P£Rf!48CC 
PERGa9GC 
PER050C0 
PER05100 
PERC520C 
PERG53CC 
PERQ3400 
PER055CG 
PERC36PC 




D-45 


» »y 

UL^ = FL♦ULi•^•GL*OL^♦HL»ZD 

VL2=AIL*VLl+AJL*OL2>aKL*ZT 

Pc=PS2^PL" 

C2 = 0S24-CL2 

T2=TSi:*TL2 

U2 = US?4-UL2 

V2=VS2+VL2 

U£!L1=UDL2 

UD31 = IJ0S2 

VDL1=VQL2 

VOS1=VOS2 

RETUR^J 

END 


I 


\ 




D-46 


*< 

SU3SCUTI^^ PHA3£(01,X1,02*K2*D,X» 
PER =370. 

IF <X2-X1> 20.10*20 
10 D = 01 
ReruRN 

2G OA = 01 
OB = 02 
PER2 = PER/2. 

IF(flBS(OP-nAI .L£.PER2tGO TO 3P 
IF (OA.LT.OER2) OA = DA ♦ O-ER 
IF (08.LT.PER2) OB = 03 ♦ PER 
30 DA = DA ♦ (03 - QA)*(X - XI) /{X2 - 
IF (DA. GT. PER) OA = DA - PER 
IF(CA.LT.C.) OA=OA+PER 
0 = OA 
RETURN 
EFO 



XI) 



PHACOlOO 

PHA00200 

PHA003CG 

PHA03ACG 

PHAC05C0 

PHA006GG 

PHA007C0 

PHA00600 

PHA009C0 

PHAOIOCO 

PHAullCC 

PHA012CU 

PHA013CC 

PHAOIADC 

PHA01500 

PHA01600 

PHA01700 





LATITUGE phi 
PAQ«OAQ,TAQ, 


0 

1 


SU3®CUTINE OvROGEnI 

C.....COMFUTcS GBO VALUES PQtBQYTQ ,U3, H, 

C CN JULIAN OAf XMJO FROM ARRAYS OF AMPLITUDES 

c L'AQtVAQ ANO PHASES POQ ♦ OCC t TOQ , U3Q , VOQ. 

CGHMON/IOTEM“/IOT£Ml,IOTtM2,IUG,NMCOP,00*XMJO,PHIl,PHI, 

, NSAMtfRPlf PDl, PTl, 3=1. SHI. STl, RUl, RVl. SUl. 

% MN, lOA, lYR, HI. PHilR.TMcTlR.G.PI .H.PMIR. THETR.FlO.FlOB. AP, 
. IHR.MIN.NMOR£,OX.HL.VL,DZ 

COMMON/POTCOM/IU4, MONTH, I0OR,PG(ia,19).TG(18,19>.DG(ie.l9l 
. ,PSPC9,1C.12) 

, ,DSF(S,iC.l2». T3P (6. 13,12 > .PAQ( 17.5) ,DAQ( 17.51 ,TAQ( 17,5). 

• PDG«17,5) ,0aQ(17,5) ,T0Q(1T,5) ,PR(2Q.lO) ,OR(20,10),TR(20,10) , 
.UAQ(17.5) ,VAQ(i7,5),UOQ(l7,5) ,VDQ(17,5) ,UP(£5,10) ,VR(25.1C) 

. .or.,oQ,TQ.uo.vn 

• .PA.uA, TA,UA,VA,iOPQ 

IF (XM JC.GT.C .ANO. lOPQ.EQ.l) GO TO 10 
C SETS 030 values TO ZERO FOR ANNUAL MEAN 

FQ =C. 

00 = 0 . 

TQ=0. 

UO=u. 

VO=Q. 

RETURN 

C LOWER HEIGHT INOEX 

10 IH = INK (H-5.) /5.) 

IF (IH.LT.1I IH=1 
C UPPE® HEIGHT INOEX 

IP = IH ♦ 1 
IF (IP.GT.l?) I® = 17 
PHA = A9SCPHI) 

C LOWER LATITUDE INOEX 

JL = INT(( °HA ♦ 10.)/20.) 

C UPPER LATITUDE INOEX 

JP = JL ♦ i 
IF (JL.LE.O) JL=1 
IF (JP.GT.5) JP=5 
C JULIAN DAY FOR JAN 0. 1966 

XMJOO = 2439126 

C TIME RELATIVE TO JAN G, 1966 

TMJO = XMJO-XMJOO 

C 2*PI/PFRICO, PERIOD = 370 DAYS 

PER = 970. 

TP - 6.2831 953/PER 
C LOWER height 

HI = 5. ♦ 5.*IH 
C LOWER LATITUDE 

PHIJ ~ 20.*JL - 10. 

C UPPER LATITUDE 

PHI? = 20.*J3-lu. 

C INTERPOLATES QBO P.O.T AMPLITUDE ON LATITUQE AT LOWER HEIGHT 

CALL INTEkZ(°AQ(IH,JL).OAQ(IH.JL),TAQ(IH,JL),PHIJ,PAQ(IH,JP», 
IDAO(IH.JP) .TAQ(IH.JP) iPHIF,PAl,OAi,TAl.PHA) 

C UPPER HEIGHT 

HP = 5.+5.*I=» 

C..... interpolates DBO P.O.T AMPLITUDE ON LATITUDE At UPPER HEIGHT 


SVl 


QBOCOiOO 
QBO G 0200 
QBOQ030C 
QBooauco 
QBOC35CO 
.QB0006CC 
QBOCD70G 
QBOOQSCO 
QBOOa°CO 
QBOQIQQC 
QBOOllOO 
QBOQ1200 
Q3O013CC 
QBO014CC 
QaOQlSOG 
QB00160C 
Q8001700 
Q3O018CC 
QBO019C0 
QB002000 
QBO02100 
QBO022C0 
QB00230C 
QBO024C0 
Q300250G 
QBO0260C 
QBO027CC 
QB002600 
QBO0290C 
QBO03QCC 

8 BO031CC 
BO032GC 
QB003300 
QB003400 
QBO035CC 
QB 00 3600 
Q6O037C0 
QBO0380C 
QBO039CC 
QBO040C0 
QBOC41CO 
Q30Q42CC 
QB004300 
Q6004400 
QBOQ4500 
QB00460G 
QBO047L0 
QB0048CG 
QBO049GC 
QBOC50C0 
Q9O051CC 
QBO052CG 
QBOQ530C 
QB00540C 
QBO055C0 
QBOG5600 


X 





call INT?R Z ( PAQ ( 1 3 , JL I ♦ da Q f I P , Ji. I , TA O f I P t JLI • PM U t »A Q C IP, JP| , 
E D A Q ( r F, JP) * T A Q ( I P t J P ) , =M I c , P A£,DA2,TA2,PHA) 

C..,..INT£F°aLATES QSO PtD,T AMFLITUOc ON HEIGHT AT LATITUDE PHI 
call INTERZ(»A1,0A1,TA1,HI,pA2,DA2,TA2.HP, oa,OA,TA,H) 

C. . . . , IMTERDOLATES 090 P,D.T,U,V OHASE ON LATITUDE AND HEIGHT 
call PHASE(^00(IH,JlI ♦PHIJ,P0Q (IH, JO) ,OHIP,001 ,°HA| 

CALL °HASE (DJQflH, JL) , U , COG ( I H , JP ) , =HI P , 001 . A ) 

CALL PHASEfTOOf IH, JL) ♦PHiJf T0Q(IH, JP) ,PHIP,TD1,PHA) 

CALL PHA3E(?D1(IP,JL) ♦PHIJ,o0Q(IP,JO),PHIP,P02,PHA) 

CALL PHAS£(OJ0(IP»JL) ,PHIJ,ODQ(IP,JP) ,PHIP,0D2,PHA) 

CALL PHASE (TOOl IP, JL) , PHIJ , FOG ( I P , JP ) , oh IP , T02 t PHA) 

CALL PHASE(OD1,HI,PD2,HP,PO,H) 
call PHA3E{001,HI,Dn2,HP,00,H) 

CALL PHASE(T01,HI,T02,HP,TD,H) 

call PHAScfLOQdH.JL) ,OHIJ,LOQ(IH,JP»,=HIP,U01,PHA) 

CALL PHASE ('7 00 (IH,JL) ,OHIJ,V0Q (Ih,JP) , OHIO, V01.,PHA» 
call PHASE(b00(IP,JL),0HIJ,U0Q(IP,Jo),OHip,J02,OHA) 

CALL PHASE (VDQdP,JL) ,PHIJ,\/0Q (IP, JP) ,PHIP,VD2,PHA) 

CALL PHA3E(UOi.,Hl ,UD2,HP,U0,H) 
call PHASE(V01»-HI,VD2,HP,V9,H) 

C.....INTERO0LATES QBO WIND AMPLITUDE ON LATITUDE AT LOWER HEIGHT 

CALL INT£PW(UAQ(IH,JL» .VAQ(IH,JL» ^PHIJ,UA(3fIH,JP) ,VAQ(IH,JO» , 
5FHlr,UAl,VAl,PHA) 

C INTERPOLATES QBO WIND AMPLITUDES ON LATITUDE AT UPPER HEIGHT 

CALL INTERW(UAQ{IP,JL) ,VAO(IO,JL) ,PHIJ,UAQ(IP,JP) ,VAQ(IP,JPI , 
6FHIP,UA2,VA2,ohA) 

C.«... INTERPOLATES OBO WIND AMPLITUDES ON HEIGHT AT LATITUDE PHI 
CALL INT£fiW(U.ai,\/Ai,HI,UA2, VA2,HP,UA,VA,H) 

EVALUATES Q30 VALUES FROM INTERPOLATED AMPLITUDES ANO PHASES 

PQ=PA»COS(TP*(TMJO-PO) ) 

00=DA*COS(TP*(TMJO-00) ) 

TO=TA»COS(TP*(TMJO-TO) ) 

(JO=UA*COS(TP*(THJO-UO» ) 

VQ=VA*C0S(TP*(TMJ0-V0) ) 

PETURN 

END 


Q8005700 
QBOS56CO 
QBOC59CQ 
QBO060C0 
QBOG6100 
Q30C62CC 
Q90C63CG 
Q8O064C0 
Q9O065C0 
QBO G 66 GO 
QSO067C0 
08006600 
QB0C6OQQ 
QBOQ70C0 
Q8O0710C 
QB00720G 
Q8OC730C 
QB00740G 
QB0C75CG 
Q8O0760G 
QB00770C 
Q9O078Q0 
Q8O0790C 
Q8O0800C 
QBO081C0 
QBOC8200 
Q9O083CG 
QBOQ84CG 
QBO085C0 
Q6O086C0 
QBO087G0 
QBO08800 
QB00890C 
QB009000 
Q80091CO 
QBO092CC 




FUNCTIOM RANtDCXjl 

PROCUCES A RANDOM NUM8ER FROM A UMFORM-QISTT, FROM 0 TO ♦! 
INTEGER XO 

IF (XO.NE.Cl X = XG/26214«*. 

X = X*509 
X = X - INT(X» 

KANO = X 

RETURN 

END 


RANG 01 QO 
RANQ020C 
RANC03CC 
RANOO^OO 
RAN0050C 
RANG060C 
RAN0070G 
RAN00800 
RAN009CC 



y 


5 

»■ 

C* .. .. 

c • • • • • 

c 

c 

c 

c 

c. .... 
c. ... . 

c 

c 


SUBPO'JTINi PIG RIGOOICO 

COMMON/IGTEHP/IOTEMl ,IOTEM 2 ,lUG,N^CO=,CO,XHJDtRHIl,PHI, RIGuOSCO 

NSflME.RPlF RD 1 » RTl, SPi, S 3 i. STl* RUl, RVl* SUlf SVl. R 1 G 003 CC 
MN, lOfl, lYR, Hi, FHIlR,THr:TlP,G,PI,H,OHlR,THETP,Fl 0 .FlCB.AP, RIG 0 a 4 C 0 
IHR.MIN.NMORE.DX.HL.VL.OZ.G.EPS RIG 0050 C 

Gf^AVITY G AT H* LATITUDE PHIS fRADIANS) RIG 0060 C 

RADIUS PI FROM CENTER OF EARTH TO HEIGHT H RIG 007 CC 

B = POLAR EARTH RADIUS. EPS = ECCENTRICITY RI 60080 C 

CPHI2 = CCS(RHIR) ** 2 RIG009Q0 

EARTH PACIU5 RIGOIOOO 

RI = 3 / SQPTd. - EPS * CPHI2) RIGOllOO 

C2PHI - CCS(2*PHIR) RIG012G0 

C2PHI = 2. ♦ CPHI2 - 1. RIGQ1300 

CLOHI = COS(4*PHlf<» RIG01400 

C4PHI = 9. ♦ CPHI2 ♦ <CPHI2 - 1.1 1. RIG01500 

G AT SiJRFACE RIG01600 

G = 9.9G616 ♦ Cl. - 0.0026373 * C2PHI ♦ 0.0000059 * C2PHI * C2PHII RIG017C0 
EFFECTIVE RADIUS RIGQ1800 

Pt = 2. * G / (3.065462E-3 + C2PHI ♦ 2.27E-6 - C4PHI ♦ 2.E-9) RIG0190C 

G AT HEIGHT H RIG020C0 

G = G / (1. + (H / REM ♦* 2 RIG0210G 

RADIUS AT HEIGHT H RIG022C0 

RI = RI + H RIG023C0 

FUD RIG024C0 


0 

1 

CJl 

o 








.C 








SUe'?OUJIN£ ?TERP(H,PHIrPR,0R,TR,P,0, T) 

C CCHFUTES RANDOM PERTUR3ATION STANDARD DEVIATIONS PfO.T AT 

C HEIGHT H (KM), LATITUDE PHI(0£GREES) FROM’SIGMA ARRAYS 

C PR, DP., AND TP 

m.-lENSION PR (20 ,10 ) ,OP(2G ,10 ) *Tp (cC,lO) 

I = LOWER HEIGHT INDEX 

IF (H.LT.95.) I = INT ( (H-20 . ) /5. ) 

IF (H.GE.95.) I ~ Ih ^ INT ( (H-8C. ) /aO.) 

IP = !♦! 

IF (IP.GT.20) IP = 20 
C LOWER LATITUDE INDEX 

J = INT((FHI + ll0.)/20.) 

JP = JFl 

IF (JP.GT.IO) JP=10 
IF (I.GT.li,) GO TO 10 
C LOWER height FOP PR,TR,DR ARRAYS 

Z*=5.*I+2G. 

r-C to 20 

10 Zl=2C.»(I-iQ) 

2C IF (IP.GT.14) GO TO 30 
C UPPER HEIGHT FOR PR, OR, TP. ARRAYS 

Z2=5.*l°<20. 

GO TO 40 

30 Z2=2C.*(IF-10) 

4C PHI1=-11G.F20.*J 
PHI2=-110,+20.»JP 

c. .... interpolate on latitude at lower height 

call INTtRZ(PP(I,J) ,DR(I,J) ,TR(I,J) ,PHIl,OR(I,JP» ,08(I,JP) , 

1 TRd.JFI ,PHI2,P1,01, ri,PHI) 

c interpolate on latitude at upper height 

CALL INTERZ(Pp(IP,J) ,OR(IP, J) , TR ( IP, Jl , PHIl , PR ( I P, jP) ,DR(IP,JP) , 
1 TR(IP,JP) ,PHI2,P2,D2,T2,PHI) 

C. ....INTERPOLATION ON HEIGHT USING LATITUDE INTERPOLATED VALUES 
CALL INTERZ(P1,01,T1,Z1,P2,D2,T2,Z2,P,D,T,H) 

RETURN 

END 


RTPOOIOO 
RTP0020C 
RTP001C0 
RTP0040C 
RTPOaSCO 
RTP00600 
RTP00700 
RTP0080C 
RTP00900 
RTPOIQOO 
RTPOllOC 
RTP0120C 
RTP013CQ 
RTP014C0 
RTP0150C 
RTP01600 
RTP01700 
RTPC180C 
RTP01900 
RTP02000 
RTP0210G 
RTP02200 
RTP02300 
RTP02400 
RTP02500 
RTP0 260C< 
RTP027CC 
RTP029CC 
RTP029CC 
RTP030CC 
RTP03100 
RTP03200 
RTP03300 
RTPC340C 
RTPC3500 
RTP036C0 


SIJ3R0UTIKE t?TRAN(N) 

COHMO/^XIOTt MP»/I OTEMl . I0TEM2 , lUG 
COilMON/COTRAN/NJATA( 19) *11,12,13*14(10) ,15 

C EtiT.RY POINT FOR NTRAN READ OF STATIONARY PERT'JRPATrON DATA, AND 

C random perturbation data in SETljn 

call NT.RAN(IUG,2,N,N0ATA ,L,22) 

RlTUkN 

ENTRY RT.RANl 

C. •...ENTRY OQINT FOR NTRAN READ OF GROVES DATA IN SETUP 
CALL NTFAN(IUG,2,19, NDATA,L,22) 

I1=NDATA{1) 

I2=NDATA (2) 

I3=NOATA(3) 

I5=NrATA(14) 

00 1 1 = 1, 1C 

1 I4CI) =NCATA( 1+5) 

RETURN 

ENTRY RTRAN2 

C. • ••-.ENTRY POINT FOR NTRAN READ OF Q30 PARAMETERS IN SETUP 
CALL NTRAN (lUG, 2,12, NOATA,L, 22) 

Ii=NCATA(l» 

I3=NDATA(2) 

00 2 1 = 1,10 

2 14(1) =NDATA (2+1) 

RETURN 

END 


RTRCaiOC 

RTR002CO 

RTR003Q0 

RTRC04CC 

RTROaSOO 

RTR036CC 

RTRC07CC 

RTR008C0 

RTRcagcc- 

RTRfliacC 

RTRflllOO 

RTR01200 

RTR01300 

RTR014D0 

RTR015CC 

RTR01600 

RTR017CC 

RTR01800 

RTR01900 

RTR020C0 

RTR02100 

RTP02200 

RTR02300 

RTR02400 

RTR02500 

RTR026CC 


0 

1 

cn 


SUnROUXlNE SCIMJO 
.COrtFUTES VALUES P,0,T,U#V 


ARRAYS IN COMMON RDTCOM. 

G = GRAVITY AT ^OSITION 
PHIR = LATITUDE (RADIANS) 

Fin = FlO.7 SOLAR FLUX 
AF = SGLAR-GcOMAGNETiC A 
MN/IDA/IYR = DATA (lYR = 

IHR MIN = TIME 
FHllR = PREVIOUS LATITUDE 
FF1*RD1,RT1 = PREVIOUS RANDOM 
SPl,SQl,STi = PREVIOUS RANCOM 
RU1,RV1 = PREVIOUS RANDOM 
3U1,SV1 = PREVIOUS RANDOM 


AND SHEAR OUH,DVH FROM INPUT AND 


INPUT TO SC I MOO IS 

RI = =»AOrUS AT“HEIGHT H 
THETF = LONGirUDE (RADIANS) 
F108 = MEAN FID. 7 FLUX 
SU3 P INDEX 
FULL year-1900) 

HI = PREVIOUS HEIGHT 
THETIR = PREVIOUS LONGITUDE 
PERTURDATIONS 

standard DEVIATIONS (SIGMAS) 
WINDS 

WIND SIGMAS 


CCMMC-N/IOTEMP/IOTEMI ,IOT£M2,IU3,NMCOP,Da,XMJO,PHIi,PHI, 
.NSAME.RP1L.RD1 L.RTil .SP1L.SD1L.3T1L.RU1L.RV1L.SU1L.SV1L. 

$ MN, IDA. lYR, Hi, PHIIR.THETIR.G.RI.H, ^HIR.THETR.FlO.FlOe.AP, 

. IHR, MIN, NMORE. OX. HL.VL.JZ.S, EPS, ICP°. LOOK, lET. FLAT, 

lRcis.ROlS.RTiS.RUl3, R VIS , S PI S , SDiS , STl S , SUIS , SVIS , 

2U0S1, VOSl.UDLl, VOLl, U0S2.V032.U0L2, V0L2 
COMMON/P DTCOM/IUA. MONTH, 10 PR, FGC 18, 19) .TG(13,19),0G(18,19) 

. .PSP(9. 10.12) 

. ,OSF(8,lO,12),rSP(8,lO,12l,PAQ{17,5) ,OAQ (17 , 5 > , T AQ ( 17 , 5 ) , 

• PDQ (17.5) ,DOQ(i7.5) .TOQ (17.5) .PR (20 .19) .OR (20.10 ) ,TR( 20 *10) . 
.UAQ(17,5) ,VAQ(i7,5) ,UDQ(17,5) ,VOQ(17.5) ,UR(25,10) ,VR(25,10) , PQ 
. ,0Q,TQ,UG,VQ,P3A,0QA,TQA,UA,VA, 10 PQ, 

1PLC(25,10) .0LO(25,10) ,TLP(25,10) , 

2ULP (25, lO ) ,VLP( 25,10 ) ,UDL ( 2 5 ♦ 1 0 ) . 

3VDL (25,10) ,UOS(25,10 ) , VOS (2 5. 10) 

COMMON /CL/ GLAT(16) ,GL0N(i6) , NG , FLO ( lo , 2 6) » OLD ( 16, 26) ,T LO ( 1 6 » 26) 

• SFw(16,26) ,SDl(16»26),STL(16.26),THET1,THET 
COMMON/COMP£R/SPH,SOH,STH,PRH,ORH,TRH,URH,VRH,SUN,SVH,CP, 

iprhs.orhs.trhs.urhs, VRHS, FRHL,0RHL,TRHL,URHL, VRHL, 

2SPHS. sons. ST HS, SUMS, SVHS, SPHL.SOHL.STHL.SUHL.SVHL 
CCMMCN/WINCOM/OGM,FCORV,OX5,DY5,OFX,OFY,OPXX. OPXY.DPYY.UGH, VGH, 

$ tgh.otx.oty.duh.ovh.pgh 
C0MM0N/CHK/PCK(4,L,3) ,DCK(4.4, 3) ,N0(2) 

C0MM0N/CHIC/LA(4,4),NB(2) .IWSYM 

factor for radians to degrees 

FAC = 57.2957795 
IWSYM = " 

P0=C. 

00=0. 

To=a. 

PPH=0. 

DRH = 0 . 

TPH=C. 

URH=ti. 

VFH=0 . 
t’0=9. 

VQ=0. 

F0A=C. 

DGA=0. 

toa=o. 

UA=0. 

VA=0. 


SCICOlOO 

SC1C020C 

SCIOOSOI} 

SCI0040C 

SCI005CC 

SCI00600 

SCI00700 

scioodoc 

SCI009C0 
SCIOIOOC 
SCIOllCO 
SCI0120G 
SC1013C0 
SC1C1400 
SCI0150G 
SCIul6G0 
SCI0170(] 
SCI 01 80 C 
SCI0190C 
SCI0200G 
SCI02100 
SCI0220G 
SCI02300 
SCI024CO 
SCI025C0 
SCZD2600 
SCI02700 
SCIQ280C 
SCIC29CC 
,SCI030QC 
SC10310C 
SCIQ3200 
SCI033CC 
SCI034CC 
SCI0350G 
SCI0360G 
SCI0370C 
SCI036G0 
SCI039C0 
80104000 
SCI0410C 
SCI04200 
SCI04300 
SCI0440C 
SCI&450C 
SCI046C0 
SCI047C0 
SCI04800 
SCI0490G 
SCI05GCC 
SCIQ510G 
SC10520C 
SCI053C0 
SCI05400 
SCI055CO 
SCI05600 








PSH=C. 

CSH=0. 

TSH=C. 

hcnth=mn 

C *^P£SENT LATITUDE, DEG 

PHI = PHIR*FftC 

C PFtSEM LCNGirUOE, OEG 

THET - THETR*FAC 
C PREVIOUS LATirUOE, OEG 

PHIl = OHllR*FAC 
C PREVIOUS LONGITUDE, CFG 

THE^l = THET1R*FAC 

C. ..t.FCORY = NORTH COMPONENT CORIOLIS FACTOR TIMES DISTANCE FOR 

C 5 DEGREES OF LATITUDE 

OY5 = 50j0.*RI/FAC 
0X5 = 0Y5’C0SCPMIR) 

FCORY = OY5*3IN(PHIRI/<120.*FAC) 

C IN JACCHIA OR mixed GROVES-JACCHIA HEIGHT RANGE 

8 IF(H.GT,90.Ci) GO TO 10 
C.....IN A-0 data HEIGHT RANGE 
IF <M.LE.25.0> go TO 500 

C IN GROVES OR MIXED GROVES AD HEIGHT RANGE 

GO TO 200 

C... ..IN MIXED JACCHIA-GROVES RANGE, NEED TO FAIR DATA 
10 IF (h.lt.115.) go to 20 

C..... following is the pure JACCHIA HEIGHT RANGE SECTION 
C. ....JACCHIA VALUES AT CURRENT POSITICN 
CALL JACCH(H,FHIR,THET,PH,0H,T4) 

PHIN = PHIR ♦ 5. / FAC 
THcTE = THET - 5. 

C. ....JACCHIA VALUES AT CURRENT PC3ITIGN+5 DEGREES LA-^. FOR OP/OY AND 
C DT/DY 

call JACCH(H,PHIN,THET,PHN,CHN,THN) 

C. ... .JACCHIA VALUES AT CURRENT PCSITICN-5 DEGREES LON, FOR DP/DX ANO 
C OT/DX 

CALL J ACCH(H, PH I R,THETE, PH E, DHE, THE I 
C DP/DY FOR GEOSTROPHIC WIND 

DPY=PHN-oH 

C DP/DX FOR GEOSTROPHIC WIND 

OFX=PHE-PH 

C DT/DX FOF thermal WIND SMEAR 

OTX = THE - TH 

C DT/DY FOR THERMAL WIND SHEAR 

OTY = THN - TH 
CALL WIND 

C CHANGE NCTATION FOR OUTPUT 

PGH-PH 
DGH=DH 
TGH=TH 
UH = UGH 
VH = VGH 
HB = H ♦ 5. 

C»= = 7.*PH/<2.*OH*TH) 

CALL JACCH(H8,PHIR,THET,PB,0B,T9) 

DTZ - (TB - TH) /5000 . 

VERTICAL MEAN WIND 


SCIC5700 

SCIOSffCO 

SCIQ590C 

SCI06Q00 

SC1061GC 

SCI062CC 

scioejoc 

SCIC640G 

SCIG65GC 

SCI066CC 

SCI067CG 

SCI068CC 

SCI06900 

SCI07CCC 

SCIQ71CQ 

SCI07200 

SCI07300 

SCIC7A0C 

SCI0750C 

SCI07600 

SCI07700 

SCIOTfiCO 

SCI0790Q 

SCI09000 

SCIQ810G 

SCI0820C 

SCI083G0 

SCI0840C 

SCIG8500 

SCI0860C 

SCI0870C 

SCI088CQ 

SCI0890C 

SCI090C0 

SCI09100 

SCI092C0 

SCI09300 

SCI094CC 

sciogscG 

SC1096CC 
SCI09700 
SCI09800 
SCI09900 
SCIIOOOO 
SCIlOlOO 
SCI102C0 
SCI103CG 
SCI1040C 
SCI10500 
SCI1060C 
sell 07 00 
SCI1090C 
SCI10900 
SCIllOOG 
SCIlllOO 
SCI1120G 
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1 
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C 

c. .. .. 

c 

2 0 

c 

c 

c 

c 



c 

c 

c 

c 

c 

c 

c 

c. •••. 

c 

c 

c 

c 

c - 
c 
c 
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WGH = -CP* (UH*On</OX5 ♦ VH* OTY/0 Y5 1 / (G ♦ C(»*OTZ ♦ UH*OUH ♦VH*D7H» 
GO TO RANOOfI PERTUR3ATI0NS ' SECTION 
GO TO 800 

FOLLOWING IS THL MX£0 JACCH I A -GRO V E3 HEIGHT RANGE SECTION 
LOWER HEIGHT INDEX 
IHA = 5*(INT(H)/5) 

'JPP'ER HEIGHT INDEX 
IH3 = IHA ♦ 5 

LOWER HEIGHT fqr INTERoOLATION 
HA = IHA*1. 

UPO£R HEIGHT FOR INTERPOLATION 
He s IHB*1. 

JACCHIA VALUES AT LOWER HEIGHT, CURRENT LAT-LON 
CALL JACCH (HA »PHIR*THET,PjA,OJA, TJA) 

PHIN = PHIR + 5. / FAC 
THETE = THET - 5. 

JACCHIA values mT lower HEIGHT, CURRENT LAT-LON+5 DEGREES 

lat, fcr op/oy and ot/dy 

CALL JA CCH (HA , PHIN, THET, FJN,DJN, TJN) 

JACCHIA VALUES AT LOWER HEIGHT, CURRENT LAT-LON-5 DEGREES 
LON, FCR DP/OX, AND OT/OX 
CALL JACCH(HA , PHIR, THETE, FJt,DJE, TJE) 

JACCHIA DP/DY AT LOWER HEIGHT 
DPX JA=ojE-PJA 

JACCHIA CP/DY AT LOWER HEIGHT 
OFYJA=OJN-PJA 

JACCHIA CT/DX AT LOWER HEIGHT 
OTXJA = TJE - TJA 
JACCHIA CT/OY AT LOWER HEIGHT 
DTYJA = TJN - TJA 

JACCHIA values AT UPPER HEIGHT, CURRENT LAT-LON 
CALL JA CCH (HB,PHIR, THET, PJB,CJ3,TJB) 

PHIN = PHIR ♦ 5. / FAC 
THETf. = THETF.-5 

JACCHIA VALUES AT UPPER HEIGHT, CURRENT LAT/LONT5 DEGREES 
LAT, FOR QP/DY AND QT/OY 
CALL JACCHCH3,PHIN,THET,PJN,0JN,TJN) 

JACCHIA VALUES AT UPPER HEIGHT, CURRENT LAT-LON-F DEGREES 
LCN, FCR QP/JX ANO DT/OX 
CALL J A CCH ( H3, PH IR, THE T£,PJ£,DJ£, TJE) 

JACCHIA DF/OX FOR GEOSTROPHIC WINDS 
DPXJB = PJE - PJO 

JACCHIA CP/OY FOR GEOSTOFHIC WINDS 
OFYJB = PJN - PJ8 

JACCHIA OT/DX FOR THERMAL WIND SHEAR 
OTXJe = TJE - TJB 

JACCHIA OT/OY FOR THERMAL WINC SHEAR 
OTYJe = TJN - TJB 


C.... .GROVES AT LOWER HEIGHT, TO BE FAIRED WITH JACCHIA 

CALL GTERPdtiA, PH I , PG A , OG A , TG A , PG , DG , TG , DPYG A , 0 TYGA , 0F2Y GA ) 
G... ..GROVES AT UPPER HEIGHT, TO BE FAIRED WITH JACCHIA 

call GTERP(IH3, pHI,PGO, OG e,TGB,PG,OG,TG,OPYGB,OTYGB, 0P2YGB) 
C..... FAIRED RESULTS AT LOWER HEIGHT 

call FAIk(PGA,DGA,TGA,ojA,QJA,TJA,IHA,oi,01,T1, opyga, 

S DPXJA,CPYJA ,OPXA,OPYA, OTYGA , OTXJA , DTYJA , DTXA , OTYA ) 

C-.*.. FAIRED RESULTS AT UPPER HEIGHT 


SC 1113 EO 
SCI114QC 
SCI115CC 
SCI11600 
SCI11700 
SC II 1300 
SCI1190C 
SCI12000 
SCI121CC 
SCI1220G 
SCI123CC 
SCI124CC 
SCI125C0 
SCI126C0 
SCI12700 
SCI1280G 
SC II 2 9 CO 
SCI130CC 
SCI1310C 
SCI132GC 
SCI13300 
SCI134CG 
SCI135GC 

sciiseoo 

SCI137C0 

SCH38C0 

SCI139C0 

SCI140CG 

SCI141G0 

SCI1h200 

SCI1430Q 

SCI144C0 

SCI14500 

SCI14600 

SCI1470C 

SCI148(3C 

SCI149G0 

SCI150C0 

SCIlSiCC 

SCI152CG 

SCI153C0 

SCI1540C 

SCI15500 

SCI15eG0 

SCI15700 

SCI158CC 

SC115900 

SCI160C0 

SCI161CG 

SCI1620C 

SCIie3G0 

SCI164CC 

SCI1650C 

sciieeoo 

SCI167QC 

SCI168GC 



y 


r 




*r 


CALL FAIR(PG'3,aG3,TGa,PJB,0J3tTJ9f IH-3,'’2,02,TE, DPYG3, 

fOPXJ2,3PYja,QPX3,OPY3, DTYGa , DTX J9, OTY J3 ♦0TX9, OTYBl 

.HEIGHT interpolation ON FAISrQ P,D,T 
call INTER2(Pi, Ji,Tl .Ha, P2,0 2, T2.HB« 3H.OH, TH,H) 

.HtlGHT INTERPOLATION ON FAIRED DF/OX,Co/OY 
CALL IMTEPW(9PXA ,D°YA ♦HA,0PX3,0PY3,H3,0PX,0PY,H) 

.H-IGHT interpolation ON FAIRED OT/OX,CT/OY 
CALL INTERWTOrxA, OTY A,HA,OTXa, DTY8,H3,DTX,0TY,H> 

.eastward component of geost.rofhic wind 

CALL WINC 

CHANGE OF VARIABLES FOP OUTPUT 
PGH=PH 
DGH=DH 

tgh=th 

UH - UGH 

VH = VGH ^ 

CF = /.♦PH/(2.*OH*TH) 

DT2 = (T2 - Til/5QDa . 

.VERTICAL MEAN WIND 

WGH = -CF* (UH*DTX/DX5 ♦ VH* DTY/DY5 ) / f G ♦ Cf>*DTZ ♦ UH*CUH ♦ V 
GO TO RANDOM PcRTUR3ATI0NS SECTION 
GO TO 900 

.THE FOLLOWING SECTION IS FOR GROVES CF MIXED GROVES 4C HEIGH 
UooER HEIGHT I ‘‘ME.: 

IHG8 = 5*(INT(H>/5) ♦ 5 
IF (IHG2.GT.OQ) IHGB=90 
UPPER HEIGHT 
HG3 - IHG2*1. 

.GROVES AT UoP£R HEIGHT 

CALL GTERF (IHG3, PH I , PG 3 , DG3 , T6 3f PG , DG , TG,0»YG3 # DTY6 3 * DP2YG8 ) 


VH*OVH) 


MIXED GROVES 4C HEIGHTS 


, .IJPOER STATIONARY PERTURBATION HEIGHT r 4 O 
IF (H.LT.40.0) go to 210 
..UPPER STATIONARY PERTURBATION HEIGHT = 90 
IF (H.GT.84.0) GO TO 22C 

.UFPEF stationary PERTURBATION HEIGHT = 52 . 60 . 6 9. 76* OR 84 
IHSB = 6*((I.NT(H) ♦ 4)/9) ♦ A 

.UPPER stationary PERTURBATION HEIGHT = 52 
IF (IHSP.LT.52.-) IHSB = 52 
GC TO 2’0 

I IHSB - lO* (INT(H)/1C ) ♦ 10 
GO TO 230 
IHSB = 9Q 

UPPER STATIONARY PERTURBATION HEIGHT 
HS3 = IHS9*1. 

..STATIONARY °£RTUR3AT IONS AT UPPER HEIGHT 
CALL PDTUVC=SP,OSP,TSP,PHI,THET, IHSB,FSB,OS9,TSP.OPXSB,DPYSB, 
f CTXS5.CTYSB,CP2XS3, 0P2YSR,CFXYS3) 

MIXED GROVES 4D SECTION 
IF (H.LT.30.0) GO TO 300 
LCWtR HEIGHT INDEX 
IHGA = IHGB - 5 
LOWER HEIGHT INDEX 
HGA = IHGA*1. 

.GROVES AT LOWER HEIGHT 


HEIGHT = 90 

HEIGHT = 52.60.68,76*OR 84 
HEIGHT = 52 


HEIGHT 


LOWER 


1TERc(IhGA. PHI, PGA, OGA . TG A * PG , OG * TG , QPYGA, D TVG A , DP2 VGA ) 
stationary PERTURBATION HEIGHT = 30 


SCI169G0 

SCI1700C 

SCI1710C 

SCI172CC 

SCI17300 

SCI1740C 

SCI175CC 

SCI1760G 

SCI177C0 

SCI170OO 

SCI1790C 

SCI1800C 

sciiaicc 

SCI1820G 
SCI1830C 
SCI184CC 
SCI18500 
SC II 86 GC 
SCI187GG 
SCI18600 
SCI18900 
SCI1900C 
SCI191CC 
SCI192C0 
SCI193CC 
SCI194C0 
SCI19500 
SC II 96 OC 
SCI19700 
SCI199CC 
SCI1990C 
SCI20000 
SCI2U1CG 
SCI20200 
SCI2030G 
SCI204C0 
SCI20500 
SCI206C0 
SCI207C0 
SCI2080C 
SCI2090C 
SCI21000 
SCI211C0 
SCI2120G 
SCI2130C 
SCI214C0 
SCI215CG 
SCI216CC 
SCI21700 
SCI2180C 
SCI2190G 
SCI220CG 
SCI2210G 
SC 12 22 CO 
SCI22300 
SCI22400 
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IF (H.LT.^*y.i]» '*,0 TO chO 

C.....LCWSF STflTIQNfiRY PtRTUR3flTI0N HEIGHT = 32. bO t 63t 76» OR 84 
THSi = P»C(INT(H| ♦ 4»/9> - 4 

STflTIOHAR'< PER TIRBAT IONS HEIGHT = 40 

IF (IHSA.LT. 40. u > IHSA = CQ 
GO TO 250 
240 iHSa = 3C 

C LOWER STATIOr.'ARr PERTURBATION HEIGHT 

25C HSA = IHSA^l. 

STATIONARY PERTURBATIONS AT LOWER HEIGHT 

call p.DTUV( °5P, JSP.TSP.PHI, THET, IHSA.FSA, 0 3A, TSA, OPXSA.DPYSA, 

? DTXSA.DTYSA.OPcXSA, 0F2TSA,0PXYSA) 

c..i..GPovts values height interpolations 

call INTER2 ( ^GA , OGA» TG A ,HG A , PG3 , CG E , TGB , HG 3 , PGH , OGH ,TGH, H ) 

C STATIONARY P-RTUR3ATION HEIGHT I N TE RPCu A T I ON 

CALL JNTERZC^SA.OSA, T S A , HS A , PSB , C S E , T SB , HS 3 . o SH , D SH , TSH , H ) 

C CUASI-BIENNIAL VALUES 

call OaOGEN 

C.... .HEIGHT interpolation OF GROVES OP/OY. DT/OY, AND 02P/OY2 

CALL INTEPZ( DOYGA.OTYGA, OF2YGA ,HGA , 0°YGB, 0TYG3, DP2YGB.HGe, DPYG, 
i OTYG,OF2YG,H) 

C HlIGHT INTERPOLATION OF STATIONARY PERTURBATION DP/OX AND DP/OY 

CALL INTERW ( OPX S A , OP YSA , HS A . OPXS3 , QPY SB, HSB, OPXS.OPYS.HI 

C HEIGHT INTERPOLATION OF STATIONARY PERTURBATION OT/OX AND OT/OY 

CALL INT£RW( DTX5A,DTYSa,HSA,OTXS0,OTYS3,HS3,nTXS,DTYS.H> 

C HEIGHT interpolation OF STATIONARY PERTURBATION O2P/0X2, D2P/DY2, 

C AND Q2P/DXDY 

call inter Z ( OP2XSA .DP2YSA .DPXYSA ,HSA,C°2XSB, OOPYSP, OPXYSB.HS0, 

* OC2XS,002YS,OOXYS,H» 

C UMPERTUPBEO (MONTHLY MEAN) VALUES FOR OUTPUT 

TGH = TGH * (1, *• TSH) 

PGH = PGH * (1. + PSH) 

DGH = OGH * (1. + OSH) 

C TOTAL DT/nX 

DTX = OTXS * TGH 

C TOTAL OT/DY 

OTY = TGH*OTYS ♦ OTYG»(l. * TSH ♦ DTYSI 
C TOTAL OF/DX 

OPX = J=»X3 ♦ PGH 

C TOTAL DR/CY 

DPy = ?GH*OPY5 + OPVG^d. ♦ PSH ♦ OPYS) 

C 02F/DX2 

CPXX = PGH*(2.*QPXS - 0P2XSI 

DPYY - PGH'f (2.*QPYS - OP2VS) ♦ (2.*OFYG - OP2YG»»(l. ♦PSH+OPY3) 
$ - (CFYG - DP<;YG ) ♦OP2YS 

C D2P/rXDV 

OPXY = (PGH ♦ DPYG)*OPXYS ♦ OPYG^DPXS 
CALL NINC 

C. . . . .UNPEPTURFFD values PLUS QBO PERTURBA TIONS 


PM = 

(1 . 

+ 


* PGH 

DH = 

CGH 

« 

(1. 

♦ DQ) 

TH = 

(1 . 


TO) 

TGH 


C GEOSTRO°HIC WINO PLUS QBO WIND PERTURBATIONS 

UH=UGH+UO 
VH=VGH«-VC 

CP = 7.*°GH/(2.»0GH»TGH) 


SCI2250C 
SCI2260C 
SCI2270C 
SCI22800 
SCI229C0 
SCI230C0 
SCI231C0 
SCI23200 
SCI2330C 
SCI234D0 
SCI235CC 
SCI236C0 
SCI2370G 
SCI2380C 
SCI2390C 
SCI24CCC 
SCI241C0 
SCI242CC 
SCI243C0 
SCI244C0 
SCI2450G 
SCI24eCC 
SCI2470C 
SCI24SC0 
SCI249C0 
SCI2500C 
SCI2510C 
SCI252C0 
SCI25300 
SCI254CC 
SCI25500 
SCI25600 
SCI2570C 
SCI25900 
SCI259C0 
SCI260CC 
SCI2610C 
SCI26200 
SCI262C0 
SC12640C 
SC 1265 00 
SCI266C0 
SCI2670G 
SCI26d00 
SCI269C0 
SCI2700C 
SCI271CC 
SCI27200 
SC 12 73 CC 
SC 12 74 OC 
SCI2750C 
SCI27eCC 
SCI277QC 
SCI2780C 
SCI2790C 
SCI28000 
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CTZ = (TGq*(1.4-TS9) « TGAfXi.^TSA) )/5C«0. 

C VERTICAL MEAN WINQ 

WGHs-CO* (tGH*DTX/0X5*VGM*DTY/DY5l /CG>CP*OTZ«-VGM*OUH>\rGH*OVHI 

C GO TO -RA^.OOM PcRTIIo3ATI0NS SECTION 

GO TO SCO 

.....the FOLLC^^I^JG IS THE MIXEC GROVES 40 SECTION 
. . . . .GENERATE GRID OF 40 PROFILES IF RREVICUS HEIGHT GE 30 
30C IF (H1.GE.30..OR.LOOK.EQ.1) CALL GEN4C 
IHC< = ZA 
DO 310 KNO = 1,3 
IKNO = IHCK ♦ KNO 
IF (IKN0.GT.Z6> IKN0=26 
OO 310 INO = 1,4 
DC 310 JNO = i,H 

PC< (INO, JNO,KNDJ = p4D(‘**frNO-l) •FJNO.IKND) 

OCKdNO, JNO,KNO) = 04D(4*(INC-1) ♦JNO.IKNCI 
ilC CONTINUE 

CALL CHECK 

LAT-LON INTER°OLATION OF 40 DATA AT 25 KM 

CALL INTER4( PHI, T.HET >25* P4 0, 040, 140, P4 A, 04 A, T4A* 

J 0PX4,0PY4, JTX4,0TY4,0PXXA,DPYYA,0PXrA> 

GROVES PLUS STATIONARY PERTURBATIONS 
PB = PGP*(1. ♦ PSP) 

P*0,T 

DP = 0GB*(1. ♦ 0S3) 

TP = TG3*C1. ♦ TS9) 

OPXR = PGB*D=>XSB 

OPYB = FG9*OPYS6 ♦ DPYGB*(i. ♦ PSB ♦ OPYSP) 

DPXXa = PGB* (2.*OPXSB - OF2XSB1 

OPYYP = oGB* (Z.*0PYS8 - CF2YSB) ♦ (2,*DPYG3 - DP2YGBM 
$ (1. ♦ PSB ♦ OPYSB) - (OFYG9 - 0P2YGB ) *DP2YSB 

DPXYB = (OGB ♦ OPYGB > •OPXYSB ♦ OPYG3*CPXSB 
OTXa = TGB^OTXSB 

i/tYB - TGB*0TYS3 ♦ DTYGB^d, ♦ TS® ♦ DTYSB) 

....jHEIGHT INTERPOLATION BETWEEN 40 AT Z5 AND GROVES AT UPPER HEIGHT 
DP/DX AND OP/DY 

CALL INTERWf DPX‘*,0PY4,25 . . OOXB , DPY R , HSB , OPX , OFY , HI 

HEIGHT INTERPOLATION BETWEEN 40 AT 25 ANO GROVES AT UPPER HEIGHT 

P,0,T 

CALL INTER2(o<.A,04A, ThA,25. *PB,0B,T9,HG3*oGH,0GH,TGH,H> 

HEIGHT INTERPOLATION BETWEEN 40 AT 25 AND GROVES AT UPPER HEIGHT 

OT/OX ANO OT/OV 

call INTERW(DTX4,0TY4*25. ,0TX8,DTYe,HSa,0TX, DTY,HI 
HEIGHT INTERPOLATION BETWEEN 40 AT 25 <M AND GROVES AT UPPER 
HEIGHT 02F/DX2, 0ZP/0Y2, ANO D2P/DX0Y 

CALL INTERZ(OPXXA,OPYYA,OFXYA,25.,OPXX3,DPYYB,OPXYB,HG0, DPXX, 
f OPYY,D°XY,HI 

IF (iapQ.«^Qca> GO TO 350 
C QUASI BIENNIAL PERTURBATIONS 

CALL Q3CGEN 

C ADD QBO ofi^tURBATIONS TO P,0,T 

750 PH=FGH* (l,-»-°T) 

0H=CGH* (l.+OQ> 
th=TGH*(1.+TQ) 

CALL WING 

C A-00 050 WIND PERTURBATIONS 


SCI231CG 

SCI2820G 

SCI2fl30G 

SCI2340C 

SCI2650C 

scizaecc 

SCI28700 

SCI28S0C 

SCI209OO 

SCI290GC 

SCI291CC 

SCI2920D 

SCI29300 

SCI2940G 

SCI295CC 

SCI2960C 

SCI297C0 

SCI298CG- 

SCI299C0 

SCI3030D 

SC13Q1C0 

SCI302C0 

SCI303CC 

SCI3040C 

SCI305CC 

SCI306C0 

SC130700 

SCI308CC 

SCI309CC 

SCI3100C 

SCI3110C 

SCI312C0 

SCI31300 

SCI3140P 

SC131500 

SCI31600 

SCI317C0 

SCI31800 

SCI319CC 

SCI320CQ 

SCI3210G 

SCI322CC 

SCI3230C 

SCI324C0 

SCI3250C 

SCI32eOO 

SCI3270C 

SCI32800 

SCI329CG 

SCI3300C 

SCI33100 

SCI332CC 

SCI333CC 

SCI3340G 

SCI335CC 

SCI33600 



0 


\ 


0 


IS SET TO 0 


MflOE IF HEIGHT LT -5 K 


OF 40 profiles if previous height GE 30 

.OR.LOOK.FQ.i ) CALL GEN4C 
INDEX 

INDEX 


UH=UGH«-UQ 
VH=VGH+VO 

CF = 7.*PGH/ (2.>06H*TGH) 

OTZ = (TO - T^A) /(iCOO.*CHGl - 25. I> 

C. VERTICAL HcAN WIND 

WGH = -CP»(UGH*TTX/OX5 ♦VGH*DTT/DY5 I / (G*Cc»*OTZ+UGH*Dt’H*VGH*DVH» 

C GC TO RANCON =>ERTURBATIONS SECTION 

GO TO 300 

5C0 IF (H.GE.0.31 go to 510 

IF (H.LT.-O, Gi5» GO TO 505 
C IF -15 METEP uE H LT 0 , H 

H = 0. 

GO TO 510 

C NO MORE CCMPUTAT IONS TO BE 

505 NMORE = j 

FETUpm 

C. . . . .GE'JERATE GRID 
5i0 IF (h^.GE.30. 

C LO^^EK HEIGHT 

IHA=INT (H) 

C LDLER HEIGHT 

HA = IHA*1. 

IWSX = IWSYH “ 

IHCK=IHA-1 

CC 511 KNC=1,3 

IKN.O = IHCfv ♦ KNO 

IF (KNO.LT.UKND = 1 

IF (IKNC.GT. 26) IKND = 26 

DO 511 INO=1.h 

CO 511 JNC =1,4 

PC<(IND, JND,<ND) =P4D(4*(IK'a-l) ♦JNO.lKNni 
CCKCINO, JNDfKNO) =040 (4*(IN0-1) ♦JNC,IKND» 

511 CONTINUE 

CALL CHECK 

C UP^ER HEIGHT INDEX 

IH3 = IMA ♦ 1 
IF(IHH.LE.25» go TO 513 
IMA=24 
HA^24. 

IHP=25 

C IJFPtR HEIGHT 

511 HP = IHP*1. 

LAT*L0N INTERPOLATION of 40 values AT UPPER HEIGHT 

515 CALL lNT£fi4( PHI,TH£T,IHB, »hD, Q 40tT40,P3,CB« TB, 

ft DPX43,0PY*,B,GTX*i3,DTY4B,0PXXB,DPYYB,G»XY3) 

IF( IHA.EO.O. AND.PB*O0*TB.LE.O. )GO TO 520 
GO TO 540 
520 IHB=IHP+1 

C...,.LOOc TO FiNC LOWEST VALIO HEIGHT 
He=HS+l, 

GO TO 515 

540 IF(IHA.GT.L) CALL INTERA( PHI .THET.IHA, P40,040,T40, 

IP A, DA , TA, 0PX4A* DRYLA # OTX4A , 0TV4A ,OPXXA , OPY YA , OPXY A» 

IF( IWSYM, EQ. IWSX = IWSYM 

IF(IHA.EQ.O.OR,(RA*DA*TA.LE.O.ANO. IHA .LT. 10 • and. PG*OB*T e .GT .0 . ) ) 
IGO TO p5G 


SCI337CC 
SCI33SCG 
SC I 3 390 C 
SC1340CC 
SCI3410G 
SCI342C0 
SCI343Q0 
SC13443C 
SCI345CC 
SCI34e00 
SCI3470C 
SCI343CG 
SCI3490C 
SCI350QQ 
SCI3510C 
SCI3520C 
SC 13 53 00 
SCI354QC 
SCI355CC 
SCI3560C 
SCI35700 
SCI3560C 
SCI35900 
SCI360CI0 
SCI3610D 
SCI362CC 
SCI363C() 
SCI36**CC 
SCI365C0 
SCI366CC 
SC136700 
SCI368CG 
SCI369GG 
SCI370CC 
SCI37100 
SCI3720C 
SCI373QC 
SCI3740C 
SCI3750C 
SCI37600 
SCI37700 
SCI3780L 
SCI3790D 
SCI3aOCO 
scisaioo 

SCI3a2C0 

SCl3a3(l0 

SC13a40t 

SCI335CC 

SC13a600 

SCI3a700 

SCI38d00 

SCI389CC 

SCI390CO 

SCI391D0 

SCI392CC 


0 


a 


GO TO 60 0_ 

C. •••.LiT-LON INTlROOLATION OF UQ VfiL'JES AT LOWER HEIGHT 
E50 CALL IfiTER4'( PHI,THET*»-t PMOt 040* T40* 

.PA. DA t TA, DPX4A, OPYLA . □ T X4A , □ TY 4A , DFXX A . OPT Y4 , DPX T AJ 
IR( IWSYM.FQ."*") IWSX - IWSYH 
IF(TA-TB»56G, 570,560 
560 TZ= (TA-T8) /AcOG ( TA/T‘31 
GC TO 575 
570 TZ=TA 

C ... COMPUTES HEIGHT OF SURFACE 

575 HA=HB+0.2P705»TZ*ALOG(Fd/=A)/G 
IF(6 .GT, ha-,04) go TO 600 
PH=0. 

OH=t. 

TH = 0. 

PGH=0. 

DGH=C. 

TGH=0. 

GL TO 801) 

C. • . . .HEIGHT IMERPOLATION OF P.O, T 

6C0 CALL INTER2(P4,0A,TA,HA,PR,0a,Ta,He,PGH,0GH,TGH,H) 

C.....HtIGHT INTERPOLATION OF OP/OX ANO Do/OY 

CALL INTtRW C DPX4 A , DPY4A, H A , OPXhB , CPY4e,H3, OPX , QPY 
C.... .HEIGHT INTERPOLATION OF OT/QX ANO OT/OY 

CAlL INTEftWT 3TX4A,0TYLA,HA,0TX4B. CTY4G,H3,0TX*QTY,H) 

C HEIGHT INTERPOLATION OF 02P/DX2* O2P/0Y2, ANO Q2P/DXDY 

CALL INTERZ(nPx.XA,OPYYA,OFXYA.HA,OFXXE,OPYY3,OPXY3,H3,OPXX,OPYY* 
JC^XY %H) 

C CHANGE OF NOTATION FOR OUTPUT 

FH = PGH 
DH = DGH 
TH = TGH 

IF{FH*DH*TH.L£.u. ) GO TO 800 
CALL WINC 

C CHANGE OF NOTATION FOR OUTPUT 

UH = UGH 
VH = VGH 

GP = 7.*OGH/(2.*0GH*TGH) 

OTZ = (TB - TA) /(10C0.*(HB - HA)) 

C«... VERTICAL HcAN WINO 

WGH = -CP* (UGH*OTX/OX5 ♦ VGH*OT Y/0 Y5 ) /CG>CP*OTZ^UH*OUH+VH* DVHI 

C QBO = Ci IF H LT 10 

IF (H.LT.IO.) go TO 800 
IF (IOPQ.Ea.2) GO TO 650 
C COMPUTES QUASI BIENNIAL PERTURBATIONS 

CALL Q80GEN 

C ADOS OBO PERTURBATIONS TO P,D,T 

650 PH=PGH*(1.+PQ) 

DH=CGH* (1.400) 

TH^TGH* (i.4TQ) 

C ADOS 030 WINO P£ R TUR BAT I ON S TO 'J,V 

UH=UGH>UQ 
VH=VGH4VQ 

C THE FOLLOWING IS THE RANDOM PERTURBATIONS SECTION 

NO RANDOM PERTURBATIONS IF lOPR GT 1 

80C IF (ICPR.GT.l) GO TO 330 


SCI3930C 

SCI394CC 

SC139500 

SCI3960C 

SCI3970C 

SCI3980C 

SCI39900 

SCI4000G 

SCI40100 

SCI402CC 

SCI403CC 

SC14O4C0 

SCI40500 

sci40ecc 

SCI407C0 

sci4oecc 

SC1409G0 

SCI4130Q 

SC1411CC 

SCI41200 

SCI4130C 

SCI414CC 

SCI4150G 

SCI41600 

SCI41700 

sciHiaoo 

SCI419CC 

SCI420C0 

30X42100 

SCI4220C 

SCI423CC 

SCI4240C 

SCI4250C 

SCI426C0 

SC14270G 

SCI4260C 

SCI429C0 

SCI4300G 

SCI4310C 

SCI43200 

SCI43300 

SCI434GC 

SCI435C0 

SCI4360C 

SCI437GG 

SCI438C0 

SCI4390C 

SCI4400C 

SCI4410C 

SCI4420C 

SCI4430C 

SCI44400 

SCI4450C 

SCI44600 

SCI4470P 

SCI44dOC 
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C. .... INTtP-Pet-ATLS -^AseOM WIND ^'AG^IT'JCE■S TC HZIGHT h». LATITUDE 
CALi. INTRUV(UP.VR.H,PHI,5UH.SVHI 
CALL INTRUV(PLP.aL°, olph,3LFH» 

CALL INTRUV(TLP*OL?,H,dhI,TLPH,DLPH) 

CALL INTRU\/ (ULP.VLP»H,Dm,ijLPH,7LCH) 

^ GALL INTRUV(UDL, V0L.H,=HI,U3L2.VCL2I 
CALL INTRUV(UDS, VDS.H, =HI,UOS£. VDS£» 

SUHL=SQRT (ULPH*A3S (SUHI ) 

SUHS=SQRT((1 .-ULPHl* ABS(SUH) ) 

SVHL=iQRT (VLPH*A3S (S yw) ) 

SVHS=SQRT((1.-VLPHI*ABS(5VH) » 

SUH - 3QPT(AB3(SUHI) 

SVH = SQRTIA3S(S\/H) > 

C.....1F H LE 15 USE 40 DATA RANDCN o.C.T SIGMAS 
ir (H.LE.Z5.) GJ TO 910 

C INTERPOLATE PR,DR,TR ARRAYS TO GET ^^.C.T SIGMAS AT HEIGHT 

c latituce phi 

CALL i-TEPP(h,=^HI,?R,DR,Tk,SPH,SDH,STH) 

GO TO 920 

C.....LAT-LCN INTER^OcATION ON P»C,T SIGMAS AT LOWER HEIGHT 

81C call INTER4( phi , THET.IHA. SPA. SD4, ST4 .PA . DA* T/ 

I D°X. COY.OTX.OTY.OPXX.DPYY.OPXY) 

C LAT-LON interpolation on P.C.T SIGMSA at upper HEIGHT 

CALL INT£P4( “HI , THET . IHB. SP4. S04.ST4.PB.DB. TI 

f Gpx.O°Y,OTX,DTY.OPXX.OpYY. CPXYI 

C HEIGHT INTERPOLATION OF SIGMAS 

call INTERZ(pA,DA.TA, HA,cB,DB,TB. HB.SPH.30H.STH. hi 

IF(='H*QH*TH.LE.C .) GO TO B25 

G... ..HEIGHT displacement BETWEEN PREVIOUS AND CURRENT POSITION 
82C 07 = HI - H 

SPHL = SQRT (PL PH* A as (SPHI ) 

SPHS=SQRT ( (l.-PLPHI*ABS(SFH) ) 

SDHL=SQRT(DLPH*A3S(S0H) I 
SDHS=SQRT ((1.-OlPH)*A0S(SDH) ) 

STHL=SQRT(TLPH* ABS (STH|) 

STHS=SQRT (Cl.-TLPH)*AeS(STH» ) 

SPH = SDRT(ABS(SPH|) 

SCH = SQRTCABSCSDHI) 

STH = SCRTIABSCSTHI) 

C. ... .COMPUTES HORIZONTAL DIXPLAC£MENT CX BETWEEN PREVIOUS AND ( 

C POSITION, HORIZONTAL SCALE HL . AND VERTICAL SCALE VL 

C. ....COMPUTES PERTURBATION VALUES PRH. DRH , T»H. URH AND VRH 
CALL PERTRB 

C ADDS RANCGM PERTURBATIONS TO PH.DH.TH 

PH = FH*(1. ♦ PRH) 


AT LOWER HEIGHT 
SP4.S04.ST4.PA.0A. TA. 

AT UPPER HEIGHT 
SP4.S04.ST4.PB.DB. TB. 


HB.SPH.30H.STH.HI 
JO CURRENT POSITION 


CURRENT 


ADDS RANCGM pERTURBAT 
PH = FH*(1. ♦ PRH) 

OH = DH*(1. y DRH) 

TH = TH*(1. y TRHI 
AOQS RANQGM WINDS TO 
!JH = UM+URH 
VH=VH+VRH 

.SETS PREVIOUS RANDOM 
3ERTUREATI0NS. FOR 
RF1S= PRHS 
P015= DRHS 
RTIS- TRHS 
RP1L=°RHL 


UH. VH 


PERTURBATION 
NEXT CYCLE 


CURRENT 


SCI449CC 
SCl45iJbC 
SCI45100 
SCI452CC 
SCI453CC 
SCI4540D 
SCI4550C 
SCI45600 
SCI45700 
SC1«*58QC 
SCI459C0 
SCI46Q0Q 
SCI461CC 
SCI462CC 
SCI463CC 
SCI4640C 
SCI46500 
SCI466CC 
SCI467C0 
sci4eeoo 
SCI46900 
SCI47000 
SCI47100 
SCI47200 
SC14730C 
SCI4740b 
SCI475CC 
SCI4760C 
SCI477CC 
SCI478C0 
SCI479CC 
SCI4800C 
SCI48100 
SC 14 82 OG 
SCI483CC 
sci*»a400 
SCI48500 
SCI48eOO 
SCI4S70C 
SCI488CC 
SCI489CC 
SCI490CO 
SCI491CC 
SCI49200 
SC 14 93 OC 
SCI494G0 
SCI4950C 
SC 14 96 CD 
SCI497CC 
SCI498CG 
SC 14 99 CO 
SCI50000 
SCI501CC 
SCI502CC 
SCI503Q0 




t 


0 

1 

a\ 

IV 





0 


fi 


r.Oii.-C^ML 

RT1l=T^HL 

C.....SETS PREVIOUS magnitudes FO CURRENT tfALUESt FOR NEXT CYCLE 

SF1S=3PHS - 

sns= 5CHS 

STl S = 3Ti^S 
Sc^lL = 3PHL 
S01L=SQHL 
ST1L=STHL 

C.....SFTS PREVIOUS WIND PERTURBATION VALUES TO CURRENT VALUES* 

C FOR NEXT CfCLE 

Fl'i3 = URHS 
RV1S=VRHS 
FI'1L=URHL 
- PViL=VRHL 

C.....SETS PREVIOUS WIND PERTURBATICN ^AGNlTifDES TO CURRENT VALUES* 
C FOR NEXT CTCLE 

SL'iS = 3UHS 
SViS=SVHS 
SU1L=SUHL 
SV1L=SVHL 

C.....SETS PREVIOUS HEIGHT TO CURRENT HEIGHT* FOR NEXT CYCLE 
830 HI = H 

C.....SETS PREVIOUS LATITUDE TO CURRENT LATITUDE* FOR NEXT CYCLE 
PhIlP=3MIR 

C SETS PREVIOUS LONGITUDE TO CURRENT LONGITUDE* FOR NEXT CYCLE 

THET1^. = THFTR 

C SETS N’^ORE TO COMPUTE MORE OATA ON NEXT CYCLE 

NMORE - 1 

C N’C MORE OATA IF P, D, OR T LEO 0 

1F(PH*OH*TH.LE.O.) return 
CALL STDATM(H,TS,PS, OS> 

IF { (P3»0S*TS) .GT.O , ) GO TO tJ70 
PGHP=0 . 

OGHP=0. 

TGH==0. 

FHP=0. 

OHP=G. 

THD=C. 

GO TO 8fl3 

»7J OGM==iaC.*(PGH-?S)/PS 
OGH==lOO.*(CGH-DS>/OS 
TGHO=100.* (TGH-T3) /TS 
PHP=100 .*(PH-3S) /PS 
OH;P = iGQ.«(OH-OS> /OS 
THP=irP.*(TH-TS» /TS 
C CONVERTS QQO P,0,T TC PERCENT 

980 PP=iC0.*PQ 
OS-lCO .♦OQ 
TO=lCJ.*TC 

C CONVERTS RANDOM P*0,T TO PERCENT 

PfH=l00.*PRH 
ORH=100.*DRH 
TFH=100.*TRH 
PPHS-lOO . *PR MS 
DRHS=10C.*ORHS - 


scisasoc 

SC1506uC 
SCI50700 
SCI5080C 
SCI50900 
SCI9100C 
SCI511C0 
SCI51200 
SCI513C0 
SC151ACD 
SCI515CC 
SCI516CC 
SCI517CC 
SCI513C0 
SCI519CC 
SC 15 2C CO 
SCI521CC 
SCI522CC 
SCI523C0 
SCI524CG 
SCI525C0 
SCI526CC 
SCI527CC 
SCI528CC 
SCI52900 
SCI530CC 
SCI531QC 
SCI512CC 
SCI533CC 
SC1534CG 
SCI5350C 
SCI5360C 
SCI537C0 
SCI53800 
SCI539C-0 
SCI5400G 
SC15410C 
SCI542CC 
SCI5430C 
SCI5440C! 
SCI545C0 
SCI546CC 
SCI54700 
SCIS46CC 
SCI5490C 
SCI5500G 
SCI5510C 
SCI552CC 
SCI553CG 
SCI55^(i0 
SCI555C0 
SCI556CC 
SCI557CC 
SCI559CG 
SCI559C0 
SCI56JCCI 


¥ 


T = HS=100 •*T‘?HS 

PPHL=1CC.^'>RHL 

DRHL=100 .*ORHl 

TRHL=100.*TRHL 

SPHS = 100.*SPHS 

SDHi = 10P.*SQHS 

STHS = 10G.*STH3 

SPHL = 10C.*5DHL 

SDHL = IOQ.^SDHl 

STHL = 10C.*3THL 

CONVERTS WI^(D SHEAR TO M/S/KM 

DUH = DUH ♦ lOOG . 

DVH = OVH * lOuO. 

CONVERTS VERTICAL 
WGH = WGh*lOO. 

POA = PC-A*100 . 

DQA=CQA*10C . 

TOA-TOA*lOO . 

SFH=SPH»100 . 

SC(H = SDH*100 . 

STH=STH*10G . 

F5H=PSH*100 , 

CSH=DSH*iaO. 

T£H=TSH*100 . 

IE (IOPF.NE.0> 


WIND TC CM/S 


0 

1 

<y» 

LO 



SCI561CC 
SCI562CG 
SCI5630C 
SCI564CC 
SCI565CQ 
SCI566CC 
SCI567CG 
SCI569C0 
SCI5690C 
SCI570CC 
SCI571CC 
SCI572C& 
SCI5730G 
SCI5740C 
SC 15 75 CD 
SCI5760C 
SC 15 77 CO 
SCl57atC 
SCI579Ct 
SCI58aOC< 
SCI561CC 
SCI5820C 
SCI58300 
SCI58400 
SCI585CC 
SCI5S60C 
sets 8 70 C 
SC 15 860 G 
SCI58900 
SCI590CC 
SCI59100 
SCI5920C 
SCI59300 
SCI5940P 
SCI5950C 
SCI59600 
/1SCI59700 
SCI590OC 
SCI59900 
SC16000C 
SCI6010C 
SC16020C 
SCI6030C 
SCI6a4QC 




4 


Y 


SUBROUTINE SELEC4 
INTEGER SCRCH? 

GOMMON/CWXL (16) tYL{161*NP 

SUBROUTINE TO SELECT POINTS FOR INTERPOLATION 

COfItiON /ICTEM°/ SCKCH1,SCRCH? 

COMMON /POINT/ I PT (1 6. 5) , LL 1 16 ) , OXT ( 16-. 2) 
COMMON /QROER/ I PTN ( 16*5 ) . IRE AO ( 65 * 3 ) 


DIMENSION 


IC(4) ,IL(2) ,JL(2) ,LIML(51),LIMU(51 


DATA LIML/l5*l4«13*l2*ll*10«9t8*7f6*5fH*3*2*23*l92«3«4yS9 
110,11*12,13, 14*15/ 

DATA LlHj/33,34,35,36,37,38,39,4u,41,*t2,43,44,45,46,2 3* 4 7 
144y 43, 42, 41, 40, 39, 38 ,37, 36, 35, 34, 33/ 

DATA PI/3. 14159/ 

INITIALIZE 

PI4=PI/4. 

OLGRAO=Fr/180. 

DO 1 1=1,16 
DO 1 J=l,5 
1 IPT(I,J)=0 

14 A J OR LOOP FOR POINTS - 

DO ICC 11=1, N° 

LA = ABS(XL (Iin*lQ. + .5 
LO=YL (II)*10.^. 5 
LL(II)=LA»10000+L0 

IF (XL( II) .LT.O. ) LL (II) =-LL ril) 

IF (XL(II)-15.1) 15,3C,30 
15 IF (XL(II)) 54,40,40 

NMC GRID - 

30 IPT{II,5)=2 

EL= (350-YL(II>) *OEGRAD 
PHI=XL(II)*OcGRAO 

R=31,204359052*(SIN(P14-PHI/2,)/GOS(PI4-PKI/2,)) 
yX=R»COS(EL) +24. 

YY=R*SIN(EL) +26. 

I = XX 
J = YY 
OX=XX-I 
DY=YY-J 

DXY ( II,i) =OX - 

0XY(II,2)=0Y 

IF ( X L C 1 1 ) . G T . 1 7 . 1 8) G 0 TO 31- 

IF ((J.LT.i) .OR. (J,GT.51) ) GO TO 70 

IF ( ( I.LT.LIML( J) ) .OR. (I.GT.LIMU( J) ) ) GO TO 70 


SELCOlCO 
SEL002QC 
SELQ0300 
. SFL0040C 
SELOOlOO 
SEL002CC 
SELG03GG 
SEL0a40C 
SELC05CC 
SELoaeoc 
) SEL007CC 

SEL00800 
6,7, 8,9, SELO 0900 
SELCIOCC 


, 46,45 , 


SELOllCC 

SEL01200 

SEL013GC 

SEL0140C 

SEL0150C 

SEL016(?0 

SEL0170C 

SEL016G0 

SELC19CG 

SEL02000 

SEL0210D 

SELQ22QC 

SEL023CQ 

SEL02400 

SEL02500 

SEL026CC 

SEL02700 

SELG280C 

SEL0290G 

SEL03Q00 

SEL03K30 

SEL0320C 

SEL033QE 

SEL03400 

SEL035CC 

SEL03600 

SEL03700 

SEL0380C 

SEL039G0 

SEL04aCC 

SEL0410C 

SEL04200 

SELC43CC 

SEL044GG 

SEL0450C 

SELG46G0 

SEL047C0 

SELC430G 

SEL049C0 

SEL050C(3 

SEL051CC 

SEL0520C 




¥ 


i 


4 


L =i*iofce 

IF ((49S(uX) 
IP=1 

FC TO 35 
» CONTINUE 
IF (XL(II).G 
IF {((l.GT.( 
1 ,OR. ( J.GT.5 
IF {(I+l.GT. 
IF (d.EQ.LI 

^ IO=U 

IC(^)=(I»1)* 
IC(3)=I*100u 
IC{4)=(I+1I* 
; CONTINUE 
CALL NTRANfS 
CC 36 IPG=1, 
CALL NTRAN(5 
DO 36 <=1,I0 
T IF(IC(K).EQ. 
GO TO ICO 


.GT..i),OR,(AF3CDY) ,GT.,i) > GO TO 32 


T.17.i6) GO TO iU 

LIMU( Jl -II I .AMO. ( ( J.GE.13) . ANO. ( J.LE.37) D 
01 1 GO TO 70 

LIHJ(J+1II .OR. (I.LT.LIML(J*in I GO TO 80 
MU(J) I .OR. (I.EQ. LIML (J) ) ) GO TO 3D 

lOOG-t-J 
♦ J + 1 

1000+J«-1 

cRCHa,io,22) 

1977 

CRCH2,2, 1.IJ,L*22) 

IJ) IPT( II,K)=IPG 


EQUATORIAL GRID 


IPTfII,5) =1 
L1=XL(II) 
L£=VL(II) 
IL(l)=Ll/5 
lL(c) =IL (II 
JLCl) =(L£/5) 
JL(2l=JL(ll- 
00 45 < 1 - 1,2 
00 45 <2=1,2 
IF ((A8S(XL( 
L I GO TO 45 
IF CJL(K2I.E 
IPT(lI,il =JL 
GO TO ICC 
CONTINUE 
IF (JL(I).EQ 
IPT (II,il=JL 
IPT(II,2I=JL 
1PT(II,3I=JL 
IPT ( 11,41 =JL 
GO TO 100 


III -IL(K1)*5I.GT. 0.11 .OR. (A9SIYL Clll-Jt (K2)»5I .GT 

Q.72I JLfK2l=0 
(<2I ♦4+IL(<ll +i 


.72) JL(1I=0 
(ll*4+IL (ll^l 
(2)*^+IL (1) *1 

(1) *4^IL (21 *1 

(2) *4 + IL (21+1 


SOUTHERN HEMISPHERE 

50 IPT (11,51 =3 
L1=XL(III 
L2=YL(II) 

IF (ABS(XL(il)l .LT.85.31 GO TO 51 
IPT(II,1)=1 

IF (A9S(XL(1II490.) .LT.O.llI GO TO 100 

51 CONTINUE 
IL(il=(Ll/5l -1 


SELC53Ce 

SELC540C 

S£L055C0 

SEL03600 

SELC570C 

SELC58CC 

SELC590G 

SEL060G0 

SEL0610P 

$£106200 

SEL063C0 

SEL064G0 

SEL0650C 

SEL066CC 

SEL0670C 

SEL06800 

SEL069CC 

SEL07000 

SEL07100 

SELG720C 

SEL073CQ 

SEL07400 

SEL0750C 

SEL076Q0 

SEL077C0 

SELC78Q0 

SELG790C 

SEL06000 

SELOaiOC 

SELS320C 

SEL083CD 

SEL08400 

SEL085C0 

0.1tSEL08600 

SEL0670C 

SELC8600 

SEL08900 

SEL09000 

SELG910G 

SEL0920C 

SEL093CQ 

SEL094GG 

SEL095GG 

SEL09600 

SEL0970G 

SELC9800 

SEL099QO 

SELiOOOO 

SELlOlOO 

$£110200 

$EL103GC 

$EL1040C 

$EL10500 

$EL10600 

$£L1070C 

SEL108CC 


V 


i 


r 


A 


r 


II) -IL (Kl)*5) .GT.C.l) .0^. CA3S(YLf II»- 


Q.72) JL(K2)=0 
(<2) *17-IL (Ki) *1 

GO TO ICO 

(K2) *^+1 


.^Q.72) JL(i»=0 
:i*l) .£q.l) GO TO 5^^ 
=JL (1) *17-IL(1) 

=JL (2) ♦i7-IL(l) +1 

) 55»53*55 

= JL (1) ♦if + l 

=JL 

=1135 


=JL(ll*17-IL(2)^t 
=JL(2)*17-IL(2)4>1 
= 333 


=JL(1I*17-IL(2)*1 
=JL (2I*17-IL(2I+1 


RODERLINE POINTS 


TWO EQUATORIflL 
= 2211 


=C (L/5) +2)*4 
=IPTfII,ll-4 
,355) I=>T(II,1I=4 


,1) J=1 
,51) J=51 

,LlML(jn I = LIML(J) 

,LI«U(J)> I=LINU(J) 

.000 <-J 

'.15) .OR. (J,GT.37) ) GO TO 72 
ICOO ♦J+l 


:.l) . ANO. (J. NE.51) ) GO TO 74 
LI^1U{J)) GO TO 73 
•1) »1000<^J 


>1) ♦! J03+J 


SE LI 0900 
SELllOCG 
SELlllOG 
SEL1120C 
SEL113CG 

JLCK2)*5) .6T.a.l»SEL!14C«0 

SELllSeC 

SELlieOC 

SEL11700 

SEL1180C 

SEL119CC 

SEL120C0 

S£L1210e 

SEL122C0 

SEL123CG 

SEL12400 

SEL1250C 

SEL126CC 

SEL127CC 

SEL1260G 

SEL1290C 

SEL13QQC 

SEL1310C 

SEL132C0 

SEL1330G 

SEL134CG 

SEL135G0 

SEL136CC 

SEL13700 

SEL136G0 

SEL13900 

SEL14000 

SEL141C0 

SEL14200 

SEL1430C 

SEL144GQ 

SEL14500 

SEL1460C 

SEL147CC 

SEL148GG 

SEL149G0 

SEL150CG 

SEL151GC 

SEL152CG 

SEL1530C 

SEL1540C 

SEL1550C 

SELlSeCG 

SEL157DG 

SEL1580C 

SEL15SC0 

SEL1600G 

SEL161CC 

SEL162C0 

SEL163G0 

SEL16400 






D -67 


4 , 4 

7 i* IF (I.£Q.LiML(J) ) GO TO 75 
IC(2) -LlMU(J<-il '‘13 00 ♦J+l 
GO TO 76 

^5 IC(2)='Llf'L(J + l)*iaOC+J + l 

c 

76 JCAlL i'JTkANC SCRCH 2,10 ,22) 

00 77 TdG=i ,1377 

CALL NTRAN(5CRCH2,2,l,IJ,Lt22» 

DO 77 <=1.2 

77 IF(ICtK) .EQ. IJ» IRT( II,K + 2» =IPG 
GO TO 100 
C 

eo CONTINUE 

C THREE NMC. ONE EQUATORIAL 

IPT(II,5> =2212 
IC(2) = 0 
L=yLCII» 

rPT(II,2> =( (L/5)*l>*4 
IF (L.GE.255) IPT(II,2)=4 
IF (I.EQ.LIMLCJH GO TO 84 
IF (J.GT.77) GO TO 82 

rc(i» =i*icoo+j 

ICf 3> =I*1QOO+J<-1 

icc4)=(i4i)*i0oa+j+i 

GO TO 88 

82 IC(i) =(I+1) *1000+J 
IC(3) =I»10C0<-J 
ICf4» =I'‘10uu ♦J^-l 
GO TO 38 

84 IF (J.GT.37) GO TO 86 

ic(i)=(i-i)*iaoa+j+i 
ICC3> =I*103Q+J»1 
IC(4) =I*10GQ+J 
GO TO 88 

S6 IC(i>=(I+l»*l00a+J+l 
IC(3) =(I+il»10a3+J 
IC(4) =l*lfl00+j 

c 

88 CALL NTRAN(SCRCH2.10 .22) 

DC 89 IPG=1,1977 

CALL NTRAK{SCaCH2,2,l,IJ,L,22) 

DC 89 <=1,4 

IF(IC{<) .EQ.O) GO TO 89 
IF(IC(K) .£Q. IJ) IPTI II,K) =IFG 
89 CONTINUE 
C 

ICO CONTINUE 

DO 150 1=1,16 
DO 150 J=!,5 
150 IPTNd.JI =IoT(I, J) 

CALL S0RT4(NP) 

RETURN 

END 
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SU3R0UTINr 3~rU= 

C0Mf^0N/CCTR4N/N0ATA(19) ,IC*MI*IH,IX(10) t-IEX 
□ IMENSION (5) ,I0<5> *IT(5) ,IDAY (12) ♦BUFP£R(64> 

COMMON/ICTEM°/IOT£Ml,IOT£M2,IUG,NhCOP,DD,XHJO,PHri,PHI, 

. NSAMt, RPiL ♦ P OIL, RTlLfSPlL,SClL,S TIL, ^U1L,RV1L, suit* SVIL* 
f MN, lOD, lYR, HI, PMI1R,THETA1R,CUH3(21 ),Ro 15,R01S 
l,RTlS,RIJiS,R\/lS,SPlS,SQlS,3TlS,3L!lS,SVlS,IJ0Sl,\)aSl, 

2UOL1, VOLl,OQS2, \/QS2, UOL2, V0L2 
CCMMON/FOTCOH/IU4,MONTH,IOPR,PG (18,19) ,TG(18tl9) , DG(18,19) 

. ,P3F (3, lC,12) 

l,DSF(d,lC,12) ,rSP (8, 10,12) ,=AQ (17,5) ,DAQ( 17,5) ,TAQ(17,5) ,PQQ(17, 

2 ,000(17,5) ,TOQC 17,5) , OR (20,10 ), OR (20,10> ,TRC 20,10) ,UAQ(17, 5) 

3 ,VAQ(17,5) , UOO ( 17,5 ) ,VOQ (17,5) , UR (25,10) ,VR (25, 10) , 

• PQ,OG,TQ,UQ,VQ,PQA,DQA, 

. TQA,UA,VA,IQPQ,PLP(25,iC') ,QLP(25,10) ,TLc»(25,10) 

1, UL°(25,10) ,VLP (25,10) ,JDL(25,lQ) ,VOL(25,l0) ,UDS(25,l0) 

2, VOS(25,10) 

DATA IQAY/0, 31, 59, 90,120,151,161, 212, 243, 273, 3DA, 354/ 

xr^jo = G. 

IF (MN.GT.12) GO TO 2 
lOA = lOAY(MN) ♦ 100 
CO = IDA 

IF (HOO(IYR,4).EQ.0.ANC.«N,GT.2) IDA = IDA ♦ 1 

XMJO = 2439656. > 365. ♦ (lYR - 63.) ♦ lOA ♦ INTCtlYR - 65.) 


$ / 4.) 

, .SECOND 
lUG 
lUR 


65.) 


OA7A CARO READS, FREE FIELD, THE FOLLOWING 
= UNIT NUN8ER FOR GROVES DATA TAoe 
lUR = UNIT NJH9ER FOR RANOCM SIGMA DATA 

(IF IUR=IUG UNIT lUG WILL 9£ READ) 
lUQ = UNIT NUMBER FOR Q80 CATA 

(IF IUQ=IUG DATA ON TAPE ON UNIT lUG WILL 9E READ) 
IU4 = UNIT FOR 4-0 INPUT P,0,T 0-25KM DATA 
lOPR = RANDOM OUTPUT OPTION 

i.IOPR=l RANDOM OUTPUT I0PR=7 NO RANDOM OUTPUT 

lOPQ = QBO OUTPUT OPTION 

. IOPQ = l Q30 OUTPUT IOPQ=2 NO (JBO OUTPUT 

NPl = STARTING RANDOM NUMBER 
NHCOP = NMC GRID DATA READ OPTION 

.. NMCOP=0 READS NMC GRID DATA FROM UNIT lUG, OTHERWISE READS FORI 
CAROS 

.I0TEM=UNIT FOR 4-0 P, 0, T DATA (SCRATCH FILE, DOES NOT NEED T( 
BE ASSIGNED) 

.IOTEM2=UNIT FOR NMC GRID POINTS (SCRATCH FILE, DOES NOT NEED TO 
BE ASSIGNED) 

REA 0(5,10) IUG,IUR,IUQ,IU4, lOPR, IOPQ,NRl,NMCOP,IOTEMl,IOTEM2 
FORMAT( > 

write (6,9000 ) IUG,IUR,IUQ,IU4,IOPR,IOPQ,NR1,NMCOP,IOTEM1,IOT£M2 

t ,XMJ0 

IF (IOPR.LT.i.OR.IOPR.GT.2) GO TO 666 
IF (IOPQ.LT.1.0R.IOPO.GT,2) GO TO 666 
MONTH=MN 

IF (IQPR.EQ.2) go to 7 
R=RAND(NR1) 
fi = RANO(O) 
p = RAND(O) 

.THIRD DATA CARD READS FREE FIELD, THE FOLLOWING OATA 


DATA 


WILL BE READ) 


RANDOM OUTPUT 
DBO OUTPUT 


OTHERWISE 


NEED 


FOLLOWING OATA 






/ 
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c 

c 

c 

c 

c 

c 

c 


=?PlL*-.PiS 

RD1L*PD1S 

RTlL,9TlS 

RU1L,RU1S 
RV1L»RV*S 
( S M£ANS 
ArF SUM OF 


= IN 
= IN 
= IN 
= IN 
= IN 
SNAL 

L A K 


ITIAL 

ITIAL 

ITIAL 

ITIAL 

ITIAL 


0 

1 

ot 

%o 


C« 


6 

HEM 




50 


60 


ICO 


115 

C« • • • 


130 


140 

150 


10 ) 

RP1=FP1L*FP1 
RD1=RG13+R01 
RT1=RT1S+RT1 
RUi=Rt'lL^KUl 
RVl=RVlL+PVi 
AVOIDS TAC£ 
IF (N3AME.EQ 
CALL GETNMC 
•LOADS NMC GP 
IF (MQNTH.lt 
M l = 13 
Mt = 13 
•MONTH=13 
GO TO 13 
Hl=MONTH 
M2=MCNTH 

•southern 

STATICNAR 
IF (M2.GT.12 
DO ICO 1=1,2 
CALL RTRANl 
•READS GROVES 
IF (IC.NE.‘'P 
IF (MI.EQ.MI 
IF (MI.EQ.M2 
-GO TO lOQ 
KS = 1 

GO TO 50 
KS = -1 

IH=<IH-20)/5 
TENX=10.**IE 
DO 60 J=1,1C 
K=10^KS*( J-1 
PG(IH,<) = I 
•CONVERSION T 
CONTINUE 
00 200 1 = 1,2 
CALL RTRANl 
•READS GROVES 
IF(IC.NE,"0" 
IF (MI.EQ.MI 
IF (MI.E0.M2 
-GO TO 200 

GO TO 150 

lH=CIH-20)/5 

TENX=i0.**IE 


SCAl 
G i AND 
RP1L,R 

3 


RANDOM PRESSURE FERTURaA HONS, PERCENT 
RANDOM DENSITY FERTUPaATION, PERCENT 
RANDOM TEMPERATURE PERTUR3ATI0N, PERCENT 
EAST'/JARO WInC PERTURBATION, M/3 
NORTHWAPO WIND PERTURBATION, M/S 
E, L MEANS large SCALE, TOTAL PERTURBATIONS 
SMALL FARTS) 

P1S,R01L,RD1S,RT1L,RT1S,RU1L,RU1S,RV1L,RV1S 


L 

L 

s 

s 

SEARCH 
.1) GO 


IF CURRENT MONTH IS SAME AS PREVrOUS MONTH 
TO 621 


IQ DATA 
.13) GO 


FROM INPUT UNIT 
TO 12 


TC SCRATCHFILE UNIT I0TEM2 


IS ANNUAL AVERAGE CASE 


I3PMERE OATA IS 6 MONTHS DISPLACED FOR GROVES# 
Y PERTURBATIONS, AND RANDOM PERTURBATIONS 
) M2=M2 ^ 12 
34 


PRESSURE OATA 
■•) GO TO 666 
) GO TO 30 
) GO TO 40 


X(J)*T£NX 

0 real and 


STORAGE IN ARRAY COMPLETE 


3-4 


DENSITY OATA 
GO TO 666 
GO TO 130 
GO TO 140 


SET05700 
SET 05800 
SETC590D 
SETOeCOC 
SFTC61C0 
SET062CC 
SET063C0 
SET064CC 
SETC650C 
SET066C0 
SETQ67CC 
SET06800 
SET0690C 
SET0700C 
SETC710C 
SET0720C 
SET07300 
SET0740C 
SET0750C 
SET076C0 
SET 0 7700 
SET0780C 
SET07900 
SET080CC 
■SETO81G0 
SET08200 
SET0830C 
SET084CO 
SET0850C 
SETOaeoo 
SET0870C 
SET088CC 
SETQ89C0 
SET090(2Q 
SET09100 
SET09200 
SETQ93C0 
SET09400 
SET09500 
SET096G0 
SET09700 
SET098G0 
SET0990C 
SETIOOGG 
SETIOIOC 
SET10200 
SET10300 
SET10400 
SET1050C 
SET106C0 
SET10700 
SETlOaOO 
SET109C0 
SETilOCC 
SETlllCG 
SET112CC 











1 ;^ 

P 




r 


DO 160 J=l»i0 
<=10+<S* (J-1) 

16C DG(IH,<» = IX(JI*TENX 

C. • . . .CONVEkSICN to real and storage in A=»RAV COHPCcTE 
2C0 continue 

DO 30C 1=1,234 
215 CALL kTRAM 

C*. ...READS GROVES TEMRERATURE DATA 
IF (lC.NE.**r") GO TO 666 
IF (PI. EG. Mi) GO TO 230 
IF (PI.EQ.N2J GO TO 240 
GO TO 300 
230 KS=1 

GO TO 250 
240 KS=-1 
250 lH=(IH-20»/5 
T£NX=10.**IEX 
DO 260 J=l,lO 
K=i0+K3* (J-ll 
260 TGdH.KI = IX(J)»T£NX 

C. ....CONVERSION TO REAL AND STORAGE IN ARRAY COMPLETE 

303 CONTINUE 

IF (MONTH. LT.13» GO TO 308 
C..... ANNUAL MEAN CASE - BOTH H£MISFHEP£S EQUAL 
DO 304 1=1,13 
DC 304 J=l,9 
J20=2Q«J 

PG(I,J) =PG(I ,J20) 

OG(I, J»=OG(I,J20) 

TG(I, JI=TG(I,J20) 

304 CONTINUE 

3C8 00 36- 1=1,1248 

310 FORMAT (1X,A1,I2,I3,I5,2(5I4,hXJ ,5I4» 

CALL RTRAN(19) 

C.... .READS STATIONARY PERTURBATIONS DATA (TO BE STOREO IN PSP, OSP, 
C TSP ARRAYS) 

IC=NDATA(1) 

MI=NCATA(2) 

IH-NDATA(3) 

L0N=N0ATA(4) 

DO 311 K=l,5 
IP(K) =N0ATA(4+K) 

ID(K) =NCATA (9+K) 

311 IKK) =NDATA(li*+K) 

IF {IC.NE.'*S”» GO TO 666 
IF (MI.EQ.Ml) GO TO 320 
IF (MI.EQ.M2) GO TO 330 
GO TO 3b0 
3£!? KS = 1 

GO TO 3^0 
330 KS=-1 

340 ISH=2+(IH-44) /8 
L= (LON+20 ) /30 

IRdH.LT. 52) ISH = CIH-2Ol/i0 
IF (IH.GT.84) ISH=8 
DO 350 J=l,5 


SET113G0 

SETil40C 

SET1150C 

SET116C0 

SETH70C 

SET1180C 

SET11900 

SET1200C 

SET1210C 

SET122C0 

SET1230C 

SET124C0 

SET12500 

SET12600 

SET127CC 


SET1280G 

SET12900 

SET13000 

SET131CC 

SET132CC 

SET1330Q 

SET13400 

SET1350C 

SET1360t 

SET137C0 

SET13800 

SET13900 

SET1400C 

SET1410C 

SET142CC 

SET14300 

SET144G0 

SET14500 

SET14600 

ANOSET14700 

SET14800 

SETi490C 

SET15000 

SET15100 

SET15200 

SET1530C 

SET154C0 

SET15500 

SET1560C 

SET1570C 

SET15800 

SET1590C 

SET16000 

SET161CC 

SET16200 

SET1630C 

SET1640C 

SET165D0 

SET166C0 

SET1670C 

^ A A A 






K=5+KS*( J*<KS-1» /2I 
PSP(ISH,K,L> = IPfJ)/lO0C. 

DSP(ISH,<,L» = IO(J)/lOOO. 

350 TSO(ISH,<,L> = IT(J)/1000. 

C CONVERSION TO REfiL AND STORAGE IN ARRAYS COHOLETE 

3EC CONTINUE 

IF (NONTH.lt , 12 ) GO TO 36^ 

C* •# ..ANNUAL MEAN CASE - BOTH HEMISPHERES EQUAL 
00 364 1=1. A 
DO 364 <=1.12 
DO J=l,5 

Jia=il-J 

PSP<I.J.K)=PSP( I, J10,K> 

DSPd. J.K) =OSP( I. Jia.K) 

TSPd.J.K) =TSP(I. Jlil ,K) 

364 CONTINUE 

C MOVES PAST END EOF ON UNIT lUG 

366 CALL NTPANdUG, 3,1,22) 

IF(I0PR.EQ.2) GO TO 440 

C REAOS RANDOM SIGMAS, IOPR=2 ZEROS RANDOM SIGMAS 

370 DO 430 1=1,260 ^ 

IF dUR.EQ.IUG) GO TO 375 
READ (IUR,330) I C, MI , IH, IF , 1 0, IT 
C.....USES FORTRAN READ ON UNIT lUR IF lUR NEQ lUG 

360 FORMAT ( IX , A 1 , 1 2 , 14, 3 (IX , 5I4 ) ) 

GO TO 385 

375 CALL RTRAN(IS) 

C.....USES NTRAK READ ON UNIT lUG IF lUR = lUG 
IC=NOATA(l) 

MI = N'OATA (2) 

IH=NOATA(3) 

00 381 K=l,5 
IP(KI =NDATA( 3+KI 
ID(K)=NOATA(9+K) 

361 ITCO =N0ATA (lo*K) 

3 85 IF CIC.NE.-R**) GO TO 666 
2C FORMAT (IX, Al, 13, 14, IX, 1115) 

C Ml = NORTHERN HEMISPHERE MONTH 

IF (MI.EQ.Ml) GO TO 390 
C SOUTHERN HEMISPHERE MONTH 

IF (MI.EQ.M2) GO TO 4C0 
C.....M2 = Ml ♦ 6 UNLESS Ml = M2 = 13 
GO TO 430 
39T KS=i 

GO TO 410 
4C0 KS=-1 

410 IF (IH.LT.95) IHR=( IH-20 ) /5 
C IHR = HEIGHT INDEX 

IF (IH.GE.95) IHR = l4 ♦ (IH - ftD) / 20 
CO *420 J = l,5 

K = 5 ♦ KS ♦ (J ♦ CKS - 1) / 2) 

C.....K = LATITUDE INDEX 1-5 = LAT -9G TO -IQ, 6-10 = LAT +10 TO *90 
Pk(IHR,K) =(IP(J)/1000.)**2 
OP(IHR,K) -dO(J)/lD00.)**2 
420 TP(IHR,K) =(IT(J) /lOOC .)**2 
430 CONTINUE 


SET1690C 

SET17000 

SET17100 

SET17200 

SET17300 

SET174C0 

SET1750C 

SET176C0 

SET1770C 

SET170OC 

SET17900 

SETiaOOO 

SET18100 

SETiaZOC 

SET183CC 

SET1340C 

SET1850C 

SETiaeoo 

SET187CC 

SET18800 

SET18900 

SET190CC 

SET1910C 

SET1920C 

SET19300 

SET19400 

SET19500 

SET196CC 

SET197C0 

SET198gC 

SET1990D 

SET20000 

SET20100 

SET2020C 

SET2030C 

SET20400 

SET20500 

SET2060C 

SET20700 

SETZOeOO 

SET20900 

SET210G0 

SET2110C 

SET212Q0 

SET21300 

SET2140C 

SET215G0 

SET21600 

SET21700 

SET218CC 

SEr21900 

SET22000 

SET22100 

SET2220C 

SET2230C 

SET224CC 



4 


c • • • • 


1:^ 


435 

44C 


450 

C • • • • 


455 

4£C 


C • • • • 

c 

465 

462 

C • • • • 


IF (MONTH. LT«i3 ) GO TO ‘♦60 

.ANNUAL MLflN CaS£ - BOTH «£MISPH£RLS EGUAL 
DO 435 1=1,20 
DC 435 J=l,5 
Ji0=ll-J 

CP( I, J) =FR(I, JIO ) 

0-(I.J»=CR(I, JIO) 

TR(I,J| =TP(I ,J10» 

CONTINUE 
GO TO 460 
CC 450 1=1, 2J 
DO 454 0=1,10 
PF(I,J) = G. 

PP(I,JJ = Q. 

TR(I,J) =0, 

, FANDOM SIGMAS 
no 455 1=1, i5 
on 455 0=1, 10 
UF<I,O»=0. 

Vh(I,OI = 0. 

GO TO 500 
00 49C 1=1,325 
IF (lUR.EC.IUG) GO TO 462 
PEA0<I'JP,465) IC,MI, IH,IP,XO 
.READS RANDOM WIND STANDARD OEVIATIONS 
UNIT lUR IF lUR NEQ lUG 
FORMAT fix, A 2, 12, 14,2 MX, 5 14) ) 


ARE 2ERQEO IF ICOR=2 


WITH FORTRAN READ FROM 


13) 

READ 


C 

C 


461 

467 


470 

475 

480 


4 85 
4 90 


C. • 


GO TO 467 
CALL RTRANf 
.USES NTRAN 
IC=NOATA (1) 

MI=NCATA (2) 

IH=NDATA (31 
00 461 K=l,5 
IP(K) =NDATA ( 3+K) 
IO(K) =NOATA (8^K) 

IF CIC.NE."RW) 
NORTHERN HE.MISPHERE 
IF (MI.EO.MI) GO TO 
SOUTHERN HEMISPHERE 
IF (MI.EQ.M2) GO TO 
GO TO 490 
KS = 1 

GO TO 490 
KS=”1 

IF (IH,LT.95) 

MtIGHT INDEX 
IF CIH.GE.95) 

DC 485 J=1.5 
LATITUDE INDEX 
K=5>KS* (J4 (<S-1) /2) 
UF(IHR,K) = (Io(J) ♦♦Z) 
VF(IHR,K)=(IO(J)**2) 
CONTINUE 

IF (MONTH. LT. 13) GO 


FROM UNIT lUG IF lUR = JUG 


GO TO 666 
MONTH 
470 
MONTH 
475 


IHR = l4-IH/5 
IMR=194 (19-80 ) /20 


•1 

♦ 1 . 

TO 500 


.annual mean case - BOTH HEMISPHERES EQUAL^ 


SET22500 

SET22EC0 

SET22700 

SET2280C 

SET22900 

SFT23000 

SET231CC 

SET232CC 

SET233CC 

SET234C0 

SET2J500 

SET236CG 

SET237CC 

SET2380C 

SET2390C 

SET2400C 

SET24100 

SET242CC 

SET243CC 

SET244P0 

SET24500 

SET24600 

SET2470C 

SET24800 

SET2490C 

SET250CC 

SET25100 

SET2520C 

SET253C0 

SET2540C 

SET255C0 

SET25600 

SET257CG 

SET2580Q 

SET25g00 

SET26000 

SET26100 

SET2620C 

SET26300 

SET2640C 

SET26500 

SET2660C 

SET2670C 

SET2680C 

SET2690C 

SET270CC 

SET2710C 

SET272CC 

SET273CC 

SET274CC 

SET2750(3 

SET27600 

SET2770C 

SET27800 

SET2790C 

SET280C0 






HMtlDiWllWillllii 


D-73 



DO h95 1=1. E5 
DO 495 J=l,5 
J1 j-ll-J 

UP ( I, J) =UP (It J1 j) 

V‘-'( I, J» =UR (I , JlQ ) 

495 CLNTJMJE 

C MOVES 3/^31 7RD EOF on 'jrJlT IU5 

500 C^LL NTRflN( lUGt n,l,c2) 

IFdGPF.EC.Z) GO rO 9C0 
799 CO 840 I=lt25 

IF( lUR.EQ.IUG) GO TO 8G0 
FfAD(IUR,'»8G) ICtMl, iHtIP, lOtIT 
C.....USES FORTRAN REAO ON UNIT US IF lUS 
GO TO 823 
80C CALL STRAN(18) 

C. ....USES KTSAN read on unit lUG IF HJF E 
IC=NDATA(J> 

MI-NOATA (2» 

IH=NOATA (T) 

00 810 K=l,5 
IPCK)=N0ATA(3^K) 

I0(KI =NDATA( fl+K) 

810 IT(K)=NDATA(l5+<) 

820 IF(IH.GT.90» IH=7C+(IH/4» 

IM=l+(IH/5) 

IF(IC.NE."P'*.OR.IH.NEcI) GO TO 666 

GO “30 0=1.5 

FLP(I, J+5I-I°(J) /iCO 0. 

PlP(I. 6-J»=I°(J) /lOOO. 
□LP(ItJ*5»=IQ(J»/1000 . 

DLP(I.b-J) =IO(J) /iCCO. 

TLPCI. 0*5) =IT(J) /lOOO. 

830 TLP(I,6-J>=IT(J) /iOOO. 

840 CONTINUE 

DO 865 1=1,25 
IF( lUR.EQ. lUG) GO TO 345 
REAu(lUR,465) IC , HI , IH , IP , I 0 
GO TO 855 
84-5 CALL SrPAN(l3) 

IC=:NOATA(l) 

MI=NDATA(2) 

IH = NCATA (3) 

DO 850 K=1.5 
IP(K) =NOATA ( 3*Ki 
850 rD(K) =NGATA ( 3*KJ 
«55 IF(IH.GT.aC) IH=7j+(IH/4l 
IH=1*(IH/5I 

IFd.NE. IN.OR.IC.NE."PW) GO TO 666 

DO 863 0=1.5 

ULPd, J*5» =I«(J) /lOOG. 

ULP(I.6-J» = Io(J> /lOOO. 

VLP(I, J+5> =ID(J» /lOOO . 

660 VLP(I.6-O»=IO(J)/l000. 

865 CONTINUE 

EC 868 1=1,25 

IF( lUP.EQ. IUG» GO TO 67C 






0 

1 


fttACdU?, >i 6 3) ICt MI ♦IH, IP, 10 
6c9 FGpMfiT(lX,A2,I2,I-.,2 (ly, 5T5) ) 

Gu To bee 
“7C CALL RTRflN(13» 

IC=NDATA(1» 

MI=N0ATA(2) 

1H=NDATA(3) 

CC 875 >< = 1,5 
If’CK) =NCATA ( 3*<) 

875 ir(<) =N 0 CTA ( 

88 C ir<IH.GT.90» IH=?0 +(IH/h) 

IF( IH.NE. I.OR,IC.NE."CS‘*)GO TC 066 
00 -^8 5 J= 1,5 

'JDG(I,J45) = tI=’(J)/luOG.) 

(I ,b-J) = r !=•( J) /ILuC.) 

VOS (1,J*5) = (I0(J)/UQC.) 
ee? \/i3(i,6-j) = (io(J)/lOOG.» 

see cc'iTiNUL 

DO 393 1=1, a 5 
IF( lUR.tQ.IUG) GO TO 69C 
RFftO(IUR,e 6 8 » IP, IQ 

GO TO S9U 
890 CALL RTPflN(l3) 

IC=\0ATA(1) 

MI=NDATA (2) 
rH=NDATA(3) 

CO 392 <=1,5 
1P(<) =NOATA ( 3+K) 

892 ICCK) =MCATA ( 3+K) 

99L rF(IH.GT.90) IH= ZG^-dH/U) 
rH=l+(IH/5> 

IF(IH.NE.I.OR.IC.NE.**CL") GO TO 666 
DO 396 J=l,5 

DDL (I* J*5) = { I°( J) /lOOO .) 

DDL (1,6- J) = (I = (J)/10 0C.) 

VOL (I, J + 5) = ( ID(J) /lOOG ,) 

996 VOL (I , 6 -J» =( ID( J) /lO aC . ) 

893 CONTIMIL 
GO TO 910 

900 DO 905 1=1,25 
DO 9L5 J=i,iO 
PLP(I,J)=C. 

OLP(I,J)=0. 

TLP(I,J)=0. 

ULPd , J) =0. 

VLP(I,J)=0. 

UOSd,J»=T. 

unL(i,J>=o. 

VOS(l,J)=Q. 

VDLd,J) = J. 

9C5 continue. 

C.....HGVC.S FAST NEXT £OF ON TAP£ 

91C CALL NTKAN(H^G,e,l,22) 

IF (10PQ.FQ.2> GO TO 600 

C 10^0 = 1 reads 030 PARAMETERS, IQRQ = 2 ZEROS THESE -PARAMETERS 


SET337QC 

SET338C0 

SET3390C 

ScT3400C 

SET34100 

SET34200 

SET343CC 

SET3440P 

SET345CC 

SET346C0 

S£T3h700 

SET346CC 

SET3490C 

SET350C0 

SET351CC 

SET352CC 

SET3530C 

SET354G0 

SET3550C 

SET356C0 

SET35700 

SET35SCC 

SET35900 

SET36Q0t 

SET36100 

SET3620C 

SET363C0 

SET364CC 

SET3650O 

SET3660C 

SET3670C 

SET3680C 

SET369C0 

SET37Q0C 

SET37100 

SET372CC 

SET373CC 

SET3740C 

SET3750C 

SET376GC 

SET377CC 

SET378C0 

SET3750C 

SET390CC 

SET3S10G 

SET382CC 

SET3830C 

SET384CC 

SET305CC 

SET3860C 

SET387CC 

SET388C0 

SET5890C 

SET39GPC 

SET3910C 

SET39200 
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f < fc 

512 DO 530 1 = 1 , io 

1 = ( lUO.iO. IU 3 ) 30 TO 525 
f?t i 5 j'^-, 520 » rc,iH,rx 

C Pftcs 4ITH FOvTPAN FCU'I UMl" lUT IF IL’J NET IU3 

52 v (IK. A 2 , 15 , 5 ( 14 , 15 ) I 

r.i T 0 ^ 5?7 
Sl 5 La'LL '^TFANE 

C... ..‘=EACS WITH STRAW FROM UNIT IJG IF lUQ = lUG 
527 IF GO TO 6 o 6 

IH = (IH- 5) /5 

DO 530 J=l ,5 

C. . . . ,C 0 M\;£RT FROM INTEGER °£R MIL - Q 90 °R£S 3 URE AMOLITUOE 
DAJ(IH,J) = IX( 2 *J-l)/nCQ. 

C.....QPO F.R 5 S 5 URF ^HASE (DAYS OAST JAN 0 , 1966 ) 

530 FnU(iH,J» - IX( 2 *J)»i. 
no 5cl I = 1,3 
PAT( 1 ,I) = 0 . 

531 CALL OHAS'^ ( = DQ( 2 , 1 ) , 15 . , 030 ( 5 , 1 ) ,F 3 T( 1 , 1 ) , 10 . ) 

DO 54 u 1 = 1,16 
IF (lUil.FC.I'JG) GO TO 535 
FtAO (IUT, 52 Q) IC,IH,IX 
GG TO 537 

! 535 CALL RTRAN 2 

i 527 IF ( 1 C.NF.**Q 0 “) GO TO 666 

I IH=(IH- 5»/5 

i i DO 5 l 0 J=i , 5 

C... CONVERT FROM INTEGER PER MIL - 090 DENSITY aM=*LITUOE 
, DAQ(IH,J) = IX(£»J-i » / 13 C 0 . 

I C.....Qr-0 DENSITY P 9 ASE (DAYS PAST JAN D , 1966 ) 

^ >P ; 5 U 0 QDQ (IH, J) = 1 X ( 2 *J )*i. 

i DC 541 I = 1 ,5 

I OAQfi , 1 ) = C . - 

541 CALL oHASE(D 0 ')( 2 ,I), 15 .,Gm( 3 ,I), 2 C.,D 00 (i,II , 10 .) 

DO 55 C 1 = 1,16 

r : IF (lUQ.Fr:. lUG) Go TO 545 

READ (ILO, 520 ) IC,IH,IK 
GO TO 547 

' 545 GALL RTRAN 2 

547 IF (IC. NE."Or*) GO TO 666 
IH = ( IH- 5) /3 
00 550 J=l ,5 

G, ... . CONVERTS FROM INTEGER ^ER mIL - QBO TEMP^AJURE _ AMPL ITUOE 
TADdH.J) = IX( 2 ^J- 1 ) /ICQG. 

C.....QPO TEMPERATURE RHASF 

550 TOJdH.J) = IX( 2 *J)* 1 . 

- DG 551 I = 1,5 

T^.Q ( 1 , II = 0 . 

551 CALL =»WAS£ (TD 0 ( 2 , II , 15 .,TD 0 ( 3 ,r), 2 C .,TnO(l,I) , 1 C.) 

DC 56 C 1 = 1,16 

IF (IUT.ES.IU 3 ) 30 TO 555 

C READS WITH fortran IF lUD NET I'JG 

Rf A 0 (IU 0 , 52 Q ) IC,IH, IX 
GC TO 557 
555 CALL RTRAN 2 

C READS WITH STRAW IF lUO = lUG 

557 IF (IC.NE.’dU") 30 TO 566 


SET 3 93 GO 
SET 29460 
SET395CC 
SET396CC 
SFT397CC 
SET3g0OC 
SET399CC 
SET 4 a 000 
SET401C0 
SET4020C 
SET403CG 
SET404CC 
SET405DC 
SET406GC 
SET4070C 
SET406CC 
SEThOSCO 
SET41GC0 
SET4110C 
SET4120C 
SET413C0 
SET414CC 
SET4150G 
SET416CC 
SET417C0 
SET4i80C 
SET419CC 
SET42000 
SET4210C 
SET422QC 
SET423CC 
SET424CC 
SET4250C 
S£T42eOC 
SET4270C 
SET42SCG 
SET42900 
SET43Q0C 
SET431CC 
SET4320C 
SET423CC 
SET43400 
SET435C0 
SET43600 
SET437CC* 
SET43S0C 
SET43900 
SET440C0 
SET4410C 
SET442CC 
SET442C0 
SET444CG 
SET445C0 
SET446CC 
SET447CC 
SET44 fiCO 


i 

I 

i 


i 
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OTtrjTiiiTaBWii 


c • • • • 
c • • • • 

560 


5 61 


565 

567 


C • • • • 

570 


571 

oCiQ 


5)/5 

DO 56G J=1.5 

• tfiSTWARO WIND UBO AMPLITUDE - CONVeRT<=^D TO M/S 
UAQdH.J) = IX(2 • J • 1» / 10. 

.FASTWARC WIr>JO Q30 5>HASE ICAVS PAST JAK 0, 19661 
UOQdM, J) =IX )»1, 

DC 561 1=1,5 
UAQ(1,I» s C. 

CALL FHASE(UD3(£,I) , 15 . , UDO ( 3 , I ) , 2C . * UDQU , I) , 10 . ) 
DO 57C 1=1,16 


IF dUO, 


lUG) GO TO 565 
IC, IH, IX 


GO TO 666 


AMPLITUDE - 
J - 1» / 10. 
»HASE (DAYS PAST 


COKVEPTrc TO M/S 


JAN 0,1966) 


0 

1 

eft 


C, 

C 


6lG 


62C 

621 


peAOd'jn,52C ) 

GO TO 567 
CALL RTRAN? 

IP dc.N£.'*or 

IH=(IH- 5)/5 
DC 5?C J=l,5 
.NCRTFNARC WIND JBO 
VAQ(IH,J) = IX(2 ♦ 

.KCRTHWARC MINT 330 
VPQ(IH,J»=IX (2*JI*1. 

DC 571 I = 1,5 
VAQd, I) = 0 . 

CALL^PHASt(V0QC2,I) ,15.,VOO(3,II ,2C.,VDQCl,n ,10.) 

DO 610 1=1,16 
no 61u J=l,5 
PAQd , J) = 0 . 

DAQ(I,J) = C. 

TAQd, J) = 0 , 

PDQd,J) = 0. 

OOQd,J) = D. 

TOQd,J) = D. 

UAQ(I,J)=C. 

UOQd, J)=0. 

VAQ(I,J) =0. 

VDQ(T,J) =G. 

continue 

.ZEROS 090 parameters IF lOPO = 2 
REMINDS TAPE UNIT lUG 
CALL NTPANdUG,10,22l 
F=H1 

IF(Hl .LT.25. ) R=25. 

CALL RT£RF(R , PrI li , PR, DR, TR ,SP1 , SDl , 3Tl ) 

CALL INTRUVCPLP,0LP,H1,PHI1,PLP1,DLP1) 
call INTRUV(TLP, DL°, H1,PHI4,TL®1,R) 

SF1L = SQRT (PLP1*ABS (SPl) I ♦lOu. 

SP1S=S0RT ( (1. -PLP11*ABS(SP1 )) *100 . 

SPlL = SQRT(DLPi*A9S(SOll ) *100 , 

SD1S = SQRT ( { 1 .-OcPlI* ABS(S01 ) ) *i0C . 
ST1L=SQRT(TLP1*A9S(ST1) ) *100 . 

ST13=SQRT ( (1.-TlP1)*A3S(ST1) )*100. 

CALL INT.RUV (UR,VR,Hl ,PHIl,SUl,SVl) 

CALL INTRUVCJLP, VLP, HI , PHIl , UL®1 , VL°1) 

SII1L = S0RT ('.iLOi*AB3 (SUl ) ) 

SU1S = 3QRT t (1 , -UuPi)*ABS(SUl) » 


SET4490C 

SET45fl0C 

SET451C0 

SET452CC 

SET4530C 

SETAShOC 

SET4550C 

SET45600 

SET457C0 

SETASeOO 

SET459CC 

SET460CG 

SET4610C 

SET462CC 

SET4630C 

SET46400 

SET46500 

SET466CC 

SET467CG 

SET46aC0 

SET4690C 

SET470C0 

SET47100 

SET4720C 

SET4730G 

SET4740C 

SET47500 

SET47600 

SET477CC 

SET47fi0£) 

SET47SC0 

SET4600C 

SET481C0 

SET4820C 

S£T4a3C0 

SET48400 

SET4 85C‘0 

SET48600 

SET407CC 

SET488C0 

SET439G0 

SET490GG 

SET49100 

SET49200 

SET493GC 

SET49400 

SET495CC 

SET496C0 

SET497CC 

SET498GG 

SET49900 

SET50G0C 

SET5G100 

SET50200 

SET503C0 

SET5040C 




•VJ 

■vj 


S Vi L = 5J3 .kJJ.V-L P* ♦ a S S ( S V 1 » I 
SV15 = 3QRT { (1 .-VL=*l)*flBS(SVl» » 

CALL iNTRUVf UOl» V0L»H1,PHI1*U0L1*V0L1» 

CALL INTP.UV(UJS,VCS.Hi,PHIl,U0Sl,VD51) 

UDLl = UOLi*lwiO. 

VDLi=VOLl*luO. 

L’CSi = UOSl»lG D . 

VDSl=VOSl*luC. 

626 WPITE (6,grGi) RPIL *R01L. RTiL, SPIL , SOIL , SFIL, RUIL f RVIL. SUIL * SVIL, 
1*‘LA = GE" 

W'PITE (6, 9CC 1) RPlStRDlS.RTl S,SP13, S0lS*STlStRUlS,RV13 
1,SU1S*5V1S, "SMALL" 

WRITE (6.90G2)IJOLl,VDLi.«UOSi,VOSl 
WFITE(6,90u3» 

RFlL = R=»iL/100. 

RDlL=PaiL/iuO. 

RTlL-RriL/i3 0 . 

SP1L=(3P1L/1Q0. > 

SD1L=(SC1L/10U.) 

ST1L=(ST1L/1CQ. ) 

RPiS=R°lS/iOO. 

RDlS=ROlS/10 C . 

RT1S=RT1S/100. 

SP1S = 3^»1S/100. 

S01S=S01S/10G. 

STiS=STiS/13C. 

UDLl=UOLi/lOO. 

VnLi=VOLi/l0C . 

UDSl=UDSi/lQQ . 

VDSi=V3Sl/lQC. 

WRITF(6.6''C> 


SET&C500 

SET5060C 

SET50700 

SET508G0 

SET509CC 

SET510CG 

SET5110C 

SET512C0 

SET51300 

SET514CC 

SET515C0 

SET51600 

SET51700 

SET51800 

SETBigOC 

SET52000 

SET5210C 

SET522CC 

SET5230C 

SET52400 

SET5250C 

SET52600 

SET527C0 

SET52flOO 

SET529C0 

SET53000 

SET5310C 

SET532CD 

SET533CC 

SET53400 

SET535CC 

SET53600 

SET53700 

SET5380C 

SET539CC 

SET540C0 

SET541CC 


RETURN 

666 WRITE (6, 70 0) lUG , lUR t lUQ . lOFR , lOPQ ♦ iMRl, NMCOP t IOT£Ml, I0TEM2* 
iMONTH,ICtMI* IH.IXtIEXt IPtXOt ITtSOl 

700 FORMATC* £PkO? IN SETUP I N PUT", / , i X , 5 13 , IlO * 4 1 3 , A 2, 1 3* I4 , / ♦ 111 4» 
S/,i5I4,/,P10 .1) 

STOP 

63C FORMAT (27X, "UNPERTURBED (MONTHLY MEAN) ", IIX, "MEAN PLUS PERTURBAT IOSET5420C 
lNS",9Xt"THE.RMAL"f /,23X,2(34("-“) ,2X) , 3X , "WIND" , 6X, "PERTURBATION VASET543C0 
2LUES",/«" HEIGHT LAT WEST PRES. DENS. 

7 PRES. 0EN3. TEMP TOTAL SHEAR",/ 

4M",4X,"(NT/ (<G/ (DEG WIND (M/5) (NT/ 

5WINC (M/S) (fl/3/KM) ",28 ("-") ,/," TIME (OEG) 

KEL- ", 10 ("-")) ,2X,8("-")," P 
',35X,"VIM> E-W N-S",2uX,"VIN) 

( ) M/S M/S CN/S"/) 


62) M»*3) 

7 W"/" (SEC) 

8-S (^» (_) 


9000 FORM'S! (" groves INPUT 


its: 


■Q0C INPUT UNIT - 


UNIT = 

,12,/.' 


20PTI0N = ", I2,T83,"030 OPTION = 
215. 

3/." NMC READ OPTION = 

412,/," NMC GRID POINTS 
5F9.1./) 


4-D input 

",I2,/," 


UNIT 

FIRST 


TEMP GE0STR0PH.SET544DC 
,2X ,"(KMI *',11X,"LOSET54500 
(KG/ (OEG SET5460C 
(DEG)",2(" M**SET5470C 

C T U V SET548CC 
E-W N-S E-W NSET54E0C 

SET550C0 

INPUT UNIT = ",I2, 

= ", 12, T43, "RANDOM 
RANDOM NUMBER = ", 


,I2,T‘,3,"4-C F,0,T DATA SCRATCH UNIT = 
SCRATCH UNIT - " , I 2 , T43, " JUL IAN DATE = 


9001 FORMAT( 
13(F6.2, 
20, V = " 


INITIAL P,0,T = ”,3(F6.2,' 


I , / , 

,2TF7.2," M/s 


INITIAL U,V = 

"), 7X,A5,1X, 


•I ,T60,"SIGMA P,D,T = ", 
,2(F7.2," M./S ”) ,T60, "SIGMA 


‘SCALE"/) 


SET5510G 

SET552C0 

iS£T55300 

SET55400 

SET5550C 

SET5560C 

SET5570C 

SET5580D 

SET55ECC 

SET5600C 
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POC"* FORMAT f//" ♦* PERCENT DEVIATIONS FRCM 1962 US STANDARD ** SET5610C 

1 ,”ATHOSFH£R£ APPEAR BELOW PRESSUkE, CENSITY AND TEMPERATURE "t SET56200 

2 "VALUES ♦*”//) SET56300 

90G2 FORMAT (" INITIAL UDLfVDL = ",2(F6.2," _ "»* SET56A0G 

ITEO ."INITIAL UD3.VOS = ",2<F6.2," _ ")> SET565GC 

END SET56&0C 


I 





s 












J} 


SUBROUTINE 50RT4(NP) 

SORTS J^oinTS for SEQUENTIAL TAPE READING 

ASSIGNS POINT NUMBERS BY ORDER ON TAPE. NOT BY GRID 

COMMON /OROER/ IPT ( 1 6 , 5 ) . IR E A 0 ( 65 , 3 ) 

00 1 1=1,65 
00 1 J=l,3 

1 IREAO(I,J)=0 
DO q 1=1, NP 

IFCIPT(I,5> ,LT*1» GO TO IC 
IF(IPT(I,5» .EQ.l) GO TO 9 
IF(IPT(I,5) .EQ.E) CO TO 2 
IF(IPT(I,5J .EQ.S) GO TO 4 
IF(IPT(I,5) .£0.il33) GO TO 6 
IF(IPT(I,5> .£0.2211) GO TO 7 
IF( IPT(I,5) .EQ.2212) GO TO 8 
IF (I?T{I,5) .EQ. 333) GO TO 4 
GO TO 1C 

2 00 3 J=l,4 

IF(IFT(I,J) .LT.l) GO TO 3 
IPT (I,J) =IPT (I, J)*283 

3 CONTINUE 
GO TO 9 

4 00 5 J=l,4 

IFdPTd, J) .LT.i) GO TO 5 
IPT d,J) = IPT d, J) <-22 65 

5 CONTINUE 
GO TO q 

6 IFCIPTd,!) .GT.O) IPT (I,ll=IPTd,ll'l-2265 
IFCIPT(I,2) .GT.O) IPT (1,2) =IPT (I, 2) ♦2263 
60 TO q 

7 IF ( IPT d,3) .GT.0)IPT(I,3)=IPT(I,3)+2ee 
IF (IPT (1,4) ,GT.3) lPTd,4)=IPT(I,i,)+288 
GO TO q 

8 IFdPTd.l) .GT.O) IPT (1,1) = IPT (I, 1)42 3 8 
IF(IPT(I,3) .GT.Q) IPT (1,3) =IPT (1,3) ♦238 
IF( IPT (1,4) .GT.O) IPT (1,4) = IPT (1,4) ♦238 

9 CONTINUE 

REORDERS POINT NUMBERS FOR READ 

10 IR=Q 

DO 13 K=1,NP 
00 13 L=1.4 
MP=IPT(K,LI 
IF(MF.LT,1) GO TO 13 

11 II=K 
JJ=L 

00 12 I=1,N° 

DO 12 J=l,4 

IF dPTd, J) .LT.l) GO TO 12 
IFdPTd, J) .GT. 3490) GO TO 12 
IFdPTd, J) .GE.MP) GO TO 12 


SOROOIOC 

SORC32CC 

SOR0030C 

SOR004CC 

SOR005G0 

SOR0060C 

SOR007CC 

SOR008CC 

SOR039CC 

SORCIOOC 

SOROllCQ 

SORG1200 

SORC13CO 

SORG1400 

SOR015CG 

SOR01600 

SORfll7C0 

S0RC13CC 

SOR01900 

SOR0200C 

SORG21CO 

SORG2200 

SOR0230C 

SOR02400 

SOR02500 

S0RQ26CC 

SOR0270P 

SOR0280C 

SOR02900 

SOR030GG 

S0RG31CC 

SOR032CC 

SORG330C 

SOR034CC 

S0RC35CC 

SOR036G0 

SOR0370G 

SOR03800 

SOR039CC 

SOR0400G 

SOR0410G 

SORG42CC 

SOR043C0 

SORG44CO 

SOR045tO 

SOR0460G 

SORU47C0 

SOR0480(} 

SOR049GC 

SORO50CC 

SOR05100 

SOR052C0 

SOR0930C 

SOR05400 

SOR055G0 

SOR0560C 


1 1= I 
JJ=J 

MP=IPT(I„J) 

12 CONTINUE 

IFdPTdl.JJ) .GT. 34901 GO TO 14 
IF=IR+1 

IR£flD( rR*l> =II 
IR£flD(IR,2l =JJ 
IREAD ( IR,3) =1=1 { II , JJ) 

IFT (II, JJ) =IPT( II, JJ) +9000 
MP=IFT(K,L» 

IF(MP.GT,349U) go to 13 
GO TO li 

13 CONTINUE 

14 kETIJon 
ENO 


SORQ57CQ 

SOR05800 

SOR05900 

SOROeOOC 

S0RQ61CC 

SOR06200 

SOR06300 

SOR064CC 

SOR0650C 

SOR066CC 

SOR067C0 

SORQ680C 

SOR069CC 

SOR07000 

SOR0710C 

SOR07200 


r 


StlBROUTINv; ST3ATM( Z,T, o,D) 

OIMSrNSION ZS (i 5 ) , TMS ( 55 ) , WMS ( 35 ) ,PS( 35 ) 

DATA (ZS(I) ♦r=l»35)/C'.. 2C,063» 32.162* A7.35* 

• 52. 61.591, Z9.9A«4, 90., 95., lOG., 1 05 . , 11 0 . , 115 . ♦ 

♦ 120., i?5., I5ii.* 155.* 160 .* 165.* 170.* 18C.* 19G.* 21C. 


23 C. * 


350 .* AOO . * 


5C 0 . * 55 G • * 60 0 . * 650 .* 700 . /_ 


* 270C=.65/ 

DATA ( WMS (I) * 1 = 1* 55) /2fi.96^4* 2a.96*+4* 29.9644* 28.9644, 28.5644, 

♦ 28.9644* 28.9644, 28.9644* 28.9644* 28.94* 28.68* 28.75* 28.56* 

♦ 28.32, 2«».07, 27.37, 26.92, 26.79* 26.66* 26.52* 26.45* 26.15. 

* 25.85* 25.27, 24.69* 2j.67* ^2.66* 21.24* 19*94* 18.82* 17*94* 

• 17.29, 16.34, 16.50* 16.17/ 


1.10905. 


IF(Z.LT.0.) GO TO 31 

RC=6356.36 

GO=9. 8066 

WM0=28.9644 

=>5 = 8314.32 

2M=Z*1000. 

PCM=6356360. 

IF(Z.GE.9C.) GO TO 6 
DO 3 1=1, 8 

IF(ZS(I) .LE.Z.A9C.Z*LT.ZS(l4in GO TO 5 

continue 

ZL=INT(ZS (I) )♦!. 

zu=int (zs (i + i) ) * 1 . 

ZLM=ZL*10C0. 

ZUM=ZU*1G00. 

IFd.EO.a) ZU=88.743 
WM=WMO 

HT= (KO*Z) / (RO + Z) 

HM=HT*lG0n. 

G = (THS(I + 1)-TMS(I) )/(ZIJ-ZU 
GM=G*.CGi 

IFCG.LT.O* .OR.G.GT.O .) GO TO 12 

P=PS(I)*EXP(-{G0*WM0*(HM-ZLM)) /(RS*TMS(im*100. 

GO TO 13 

P=PS(II ♦( (TMS(I) /CTMSCI) ♦G*(HT-ZL) ) )*♦(^GO*WMO)/(RS•GMl^ »*1C0. 
T=T«S (I) 4G* (HT-ZL) 

GO TO 25 
DO 7 1=9,33,2 

IF(ZS(I) .LE.Z.AND,Z,LT,ZSa42l ) GO TO 8 

CONTINUE 

T=0 . 

P = 0 . 

0 = 0 . 

RETURN 

ZL=ZS{I) 




zu^zsdtaj 

ZLM = ZLdBGO* 

ZUM=ZU*1000. 

Z>*I0=ZSfl41) 

AO=H«S(I) 

A2 = -2.*(2.*WM3a+l»-'l«S(I + 2»-flO>/t!ZU-ZL)**?.l 

A1 = {WMS(I42) -A0-A£*((ZU-ZLJ**2.n/{ZU-ZU ^ 

WMsAO+Al* (Z-ZL) +A2*IIZ-ZL)**2.) 

G=fTMS(I+2> -TMS (I) I / (ZS(I+2J -ZS(I)» 

GH=G*.001 

TK=ZLM- (T^^S f I) /GM) 

S=(WMO*GO*ROM*ROM> /f«S*GM) 

A=(<ROM>ZM)* (ZLM-TKI / ( (ZM-TK » ♦ (ROM+ZLM» ) ) 

B=(S/((TI<4R0M»*»2.)) 

P=PS(I)*(((P0M4ZM)*( ZLM-TK ) / ( { ZM^TKI * (ROM4ZLMI > > ** (S/ ( (T K+ROMI 
1**2. ) ) ) *EXP( (-S* fZLM-ZH) ) / ( (TK4ROMI *(ZM4ROM» *(ZLM4-R0M) ) I *ltO. 
Tf^=TMS(I) 4G* (Z-ZS(I) ) 

T = (WM/MHC> *TM 

25 0=(WM*P) / (RS*T) 

26 RETURN 
END 


STO05/0C 

STC0560C 

STOC590C 

STO060C0 

STO061CC 

STO062CC 

ST006300 

STO(364CG 

STO06500 

STO06600 

STD06Z0C 

sTooesce 

STOQ6900 

ST007000 

STD07100 

STO072C0 

ST007300 

STD0740C 

STO075C0 

STO0760C 

ST007700 



ooo o o a ooooooooooooooooo 




SU3RCUriN£ TI^4F 

C 0 M Ohr/TCTi£ f' 0 / 1 OT c Ml , I OTE M? 1 1 UG * NMCO a-, 
. NSAMEffiPlf ^01* ^?Tlt SPit S 

$ KN, 135, lYR, HI, PHI1C>,TH£T1'-?, G,RI,H 
• IHR,t-1IK,NM0RE,0X,HL,7L,0Z 

C0*'f^0N/C0^JAC/XLAT,XL0NG, SD5,SHA ,DV,^, 

SUROUTINE TINF CALCULATES THE EXOSPHERIC 
■■-SAO NO. ?13 ,197 0. 


LIST 


Fio = solar radio noise flux (XE-22 W/ 

Fl09= 81-DAY AVERAGt FlO 

Gi = gechagnetic activity index, AP 

LAT = GEOGRAPHIC LATITUDE AT PERIGEE 

SDA = SOLAR DECLINATION ANGlE 

SHA = solar HOUPl ANGLE 

DY = O/Y COAY NUMBER/TROFICAL YEAR!? 

R - 0.31 (DIURNAL FACTOR) 


CONSTANTS — C=SOLAR ACTIVITY VARIATION. 

0=GEOMAGNcTIC VARIATION. E= 


TINuOlCO 

DO , X N J 0 , PHTIy phT, TI no 0 2 0 0 

01, STl. RUl, RVl, SUl, SV1,TIN00300 

, OHIR,THETP,Fl0,Fl0e,GI, TIN0 04CO 

TIN005CG 

TE,EM TIN006CC 

TIN00700 

TEMPERATURE ACCORDING TO JATIN0080C 

TIN0090C 

TINiilOCC 

TINOllCC 

TTS/M**2> TIN012G0 

TIN013CG 

TINC140C 

(IN RAD) TIN01500 

(IN RAO) TIN016CC 

TIN017CC 

1 TINCiaCO 

TINC190C 

TINOZOOO 

BETA, ETC. = DIURNAL VARIATITIN02100 


E=SIMIANNUAL VARIATION. 


Cl = 333.0 
C2 = 3.32 

C3 = i.eo 

FI = 3.14159265 
CON = 0.017L5329252 
PFTA= -37.0*CON 
GAMMA= 43.C*C0N 
F = 6.0* CON 

XM = 2.5 

XNN = 3.0 


28.0 

0.03 

1.0 

130.0 

-0.08 

2.41 
0.349 
0.206 
360.*CON 
226. 5*CON 
720.*CON 
247.6*CON 
0.1145 
C.E 
£4 

342. 3*C0N 
2.16 


El = 
E2 = 
E3 = 
EL = 
E5 = 
£6 = 
E7 = 
F8 = 
E9 = 
E1G = 
Ell = 
E12 = 


SOLAP ACTIVITY VARIATION 


TIN022tJ0 

TIN0230C 

TIN024Q0 

TIN0250C 

TIN026C0 

riNQ270G 

TIN02800 

riN02900 

TIN03QCC 

TIN0310C 

TIN03200 

T1N03300 

TIN034CC 

TIN03500 

TINC360C 

riN037QO 

TIN03800 
TIN03900 
TIN040G0 
TIN041CG 
TINSL2CQ 
TI NO 43 00 
TIN044QG 
TIN045C0 
TIN046C0 
TIN047C0 
T1N04800 
TINO 40 CC 
TIN05000 
TIN05100 
TINC52CC 
TI NO 33 00 
TIN03400 
TIN05500 
TIN056CC 
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TC = Ci + C^*FiOe ♦ C3*(FiO - *^10 PI 

c 

C OIUFNAL variation 

c 

ETA = J.3*ASS(XLAT - SDA) 

THETA = 0.5»AB3(XLAT ♦ SCAI 

TAU = 5HA + 3ETA P^SINCSHA ♦ GAMMA) 

TPI=2*oi 

IF(TAU) 21C,230»230 
2l0 IFCTAU+-PI) 22u,250,2 5C 
220 TA»J = TA'J^TPI 
GO TO 210 

233 IFCTAU-PI) 25J,25U.24C 
2A0 TAU=TAU-Toi 
GO TO 2:0 

2P0 continue 

A1 =(SrN(TH£TA) )♦♦XM 
A2 =tCOS(r TA> >**XM 
A3 =(COS(TAU/2. ) 

B1 = l.C ♦ f?*Al 

B2 =IA2-A1»/81 

TV = Bl*( 1. + P.*g2*A3) 

TL = TC*TV 
C 

C GEOMAGNETIC VAr^IATION 
C 

TC- = 03*GI ♦ DA*(1-EXP(D5»GI») 

C 

c semiannual variation 
c 

Go = 0.5*C1.0 ♦ SlN<clO*OV ♦Ell) ) 

G3 = G3**E12 

TAUl = DY ♦ E3*(G3 - E8l 

G1 = E2 ♦ E3»(SIN(£4»TAU1 + E5>) 

G2 = SIN(E6*TAU1+ £7) 

TS = El ♦ F109*G1*G2 
C 

C EXOSPHERIC TEMPERATURE 
C 

T£ = TL ♦ TG ♦ TS 

RETURN 

END 





TINC570Q 
TIN058C0 
TIN059C0 
TiNoeaco 
TlNOeiCt) 
TING62CC 
TINC6300 
TINQShCO 
TIN065QG 
TINC660C 
TINC67GC 
TINO680O 
TIN06900 
TIN07000 
TIN0710C 
TINC72C0 
TIN07300 
TINC74CO 
TIN075CG 
TIN076C0 
TI NO 7700 
TIN0780G 
TIN079C-0 

riNoaooo 

riNoeioo 

TIN0820C 

TIN0830C 

riNOdACO 

TIN083C0 

TIN086C0 

TINO07CC 

TIN088C0 

TIN08900 

TIN09000 

TIN09100 

TIN09200 

TIN0930C 

TIN0940C 

TIN0950C 

TINQ96O0 

TINC97C0 

T1N09SGC 




c 

c 

c 

c 


SU9^0UIXN£.--TM£ 

COMMCN/CC^'JflC/XLAT♦XLONG,SDfl,SHfl ,OY,S,T,£M 
CCMMON/IOTtMf3/IOTEMl,10T£M2,IUG,NMCOPtDO,XMJOtPHIl, OHI, 

. NSflME.R®l, ROl, RTl, SPl, SHI, STl, RUl, RVl* 

$ HN, ID/i, lYR, Hi, PHIlR,TH£TlR,G,PI,H,PHIR,THETR,Fia,Fl 
. IH=,MIN,NMOREtnX,HL*VL»DZ 


LIST 

INPUT 

Nri = MCNTH. 


lOfl-DAf. lYRsHtAR. HR = HOUR. MIN = MINUTE 



C 

XLAT = 

latitude ( INPUT-GEOCENTR 

IC 

LATITUDE . ) 


C 

XLCNGs 

LCNGITUOE ( INPUT -GEOCENTR 

IC 

LONGITUOt. 


c 

OUTPUT 





c 

SDA = 

SOLAS DECLINATION ANGLE ( 

IN 

RAD) 


c 

SHA = 

SOLAR HOUR ANGLE (IN RAO) 




c 

CD = 

DAY NUMBER ^ROM IJAN, 




c 

c 

DY = 

OD/TROPICAL YEAR 




C 

c 

c 

SET constants 




YEAR 

= 363.2422 





YR=IY 

R 





6 OY = 

□0/YEAR 





30 FKJO 

= XMJO - 2>,35859. 




w 

c 

CC,PUTE 

GREENWICH MEAN TIME IN MINUTtS GMT 


u 

XHR = 

IHR 



0 

1 

00 


XMIN 

= MIN 




GMT = 

6C*XHR ♦ XMIN 



U1 

c 






c 

COMPUTE 

GREENWICH MEAN POSITION - 

GP 

(IN OEG) 


C 

c 

c 

c 

c 


XJ = (XNJD - 2415020.0/(56525.0) 
fil=99.6g0c33? 

A2 = 36000.76354 
A3 = 0. C0G36708 
A4 = C.250684U7 

GP = A1 ♦ A2*XJ ♦ A3*XJ*XJ ♦ A4*GMT 
N = GO/360. 

XK = N 

GP = G? - XN*3bO. 

COMPUTE RIGHT ASCENSION POINT - RAP IIN DEG) 

1ST CONVERT GEOCENTRIC LONGITUDE TO Q£G LONGITUDE 

IFACT = XLONG/130. 

XFACT = IPACT 

XLONG = 36C. ♦ XFACT - XLONG 

RAP = GP + XLONG 
N = PAo/360. 

XN = N 

RA° = RAF - XN*36U. 


TMEOOICC 
TME002GG 
TNEQ0300 
SUl, SV1.TME0040C 
OB, AO, TMEQ05CC 
TME0060C 
TMFC07CG 
TME00600 
TME00900 
TMEOiaCO 
TMECllOO 
OUTPUT -180 TO ♦ 130ITME012CC 

THE01300 
TME01400 
TME0150C 
TME01600 
TMEC17CC 
TMEOiaOC 
TMEOigoe 
TME02000 
THE021C0 
TME0220C 
TME02300 
TME0240C 
TME0250P 
TME02600 
TME0270C 
TMEO20C-C 
TME0290C 
TME03000 
THE0310C 
TME032CC 
THE0330C 
TME034C0 
TME03500 
TME036CC 
TME03700 
TMEOSaOO 
TME03900 
TME0400C 
TME04100 
TMEO420C 
TME04300 
TME04400 
TME04500 
TME046CG 
NEG « EASTME04700 
TME04800 
TME049CC 
TME05000 
TME05100 
TME0520C 
TME053C0 
TME054CO 
TMEO550C 
TME056CC 


- WEST 








c 

c 

c 


c 

c 

c 


c 

c 

c 

c 

c 

c 


X! 


c 

c 

c 


COMPUTE CELESTIAL LONGITL’OE - XLS UN; - -PI/2 TO ♦‘’I/E 

PI =0.017203 
B? = 0.0335 
83 = 1.410 
T1 = 

KLS = Y1 ♦ R2*SIN(Yi) - B? 

TPI = 5. 2831 
N = XLS/TOI 
Xh = N 

XLS = XLS - X*^*TpI 

COMPUTE SCLA4 DECLINATION ANGLE - SOA tIN RAD) 

Bi- = (Toi/3b0.) *23.45 

SOA = ASIN(SIN(XLS)*SIN(B4) ) 

COMPUTE r?IGHT ASCE'^SION OF SUN - RAS UN RAO) - -PI/2 TO ♦PI/2 

PAS = ASIK(TAM(50AI /TAN(BU) ) 

PUT RAS IN SAME QUADRANT Ai XL 

PI = 5.141592&5 
PI2 = =>I/2. 

F132= 3.*PI2 
PAS = ABS (RAS) 

TEMP = ABSCXLS) 

IF(TEMP - PI2> 130,130,100 
100 IFTTFf'P - PI) 10 5,10 5,110 
105 RAS = PI - RA5 
GO TO 130 

lie IFTTEMP - PI32) 115,115,120 
115 RAS = PI ♦ RAS 
GO TO 130 

12C RAS = TPI - RAS 
130 IF (RAS) 135,143,140 
155 PAS = -PAS 
140 CONTINUE 

COMPUTE SOLAR HOUR ANGLE - SHA (IN DEG) - - 

SHA = RAP*(PI/190.) - RAS 
IF (SHA) 210,230,230 
210 IF(SHA*PI) 220,250,250 

220 SHA=SHA+TCI 
GO TO 210 

230 IF(5Hfl-PI) 250,250,240 
240 SHA=SHA-TFI 
GO TO 230 
250 CONTINUE 

RETURN . - ■ 

END 


TM£057CC 
TME056C0 
THE059C0 
TME0600C 
TME0610C 
TME06200 
TME063C0 
THE0640C 
TME06500 
TME0660C 
TME0670C 
THE06SCO 
TME069G0 
TME07a0C 
TME071GC 
TME07200 
TME073GC 
TME074CC 
TME075G0 
THE07600 
THE07700 
TME07900 
THE0790C 
TME08000 
TME 09100 
TME082CC 
TME083CG 
TMEOS40C 
TME095GO 
TME086CC 
TME0870C 
TMEO 88CB 
THE089C0 
TME0900C 
TMEC91CC 
TME092C0 
TME0930C 
TME0940C 
TME095CC 
TME0960C 
TME0970C 
TME098CG 
TMEO 990 C 
TMEIOCOC 
TMElOlOO 
TME102C0 
TME103C0 
TME10400 
TME105CC 
TME106CC 
TME1070C 
TME108C0 
TME1090G 
TME113QC 
TMElllCG 










BHirawsBagetw 


4 


4 


0 

1 

00 

*>l 


SUBP.0UTINE WIND 

COMMON /WINC0M/RH0v.FC0RY,DX5f nY5,PX,«>Y,PXX,PXY,PYY,UtVt 
* DU*OV«= 

COMf'ON /ICTEMO/OUmK 71 ♦PHI.0UM2(17) »G,P,H,DUM3 (171 , FLAT 
COMMON/C^^IC/O'JM (18) * IWSYM 

IF (PHO.GT,C..ANO.A6S(PHI».GT,0.) GO TO 20 

u = c. 

V = 0. 

RETURN 

FCOnX = FC0RY*0X5/0Y5 
(j = - ?Y/(FCORY*RHO) 

V = PX/(FCORX»RHO) 

DU = -(G*'ty) / (FCORY*n 
OV - (G*TX) / (FCORX^TI 

IF (ABS (FmI) ,G£.FLAT.OR.H,G£.90. ) RETURN 
UG = U 
VG = V 
DUG = DU 
OVG = OV 
AL - l./RHO 
F = FCORY/OY5 
= TX/0X5 
= TY/0Y5 
= OX/0X5 

= OY/CV5 

FXX/DX5**2 
°YY/OY5**2 

PXY/(0X3*DY5) 


T.TX, TY. 


TX 
TY 
PX 
PY 
PXX = 
PYY - 
PXY = 
ALX = 
ALY = 


AL* ( (TX/T ) 
AL*( (TY/T) 


{PX/'>II 
(OY/PI ) 


FZ = F*F 
GZX = AL*°X 
GZY = AL*FY 


GZXX 

- 

AL*PXX ♦ 

2. 

*PX*ALX 

GZYY 

- 

AL*PYY ♦ 

2. 

*PY*ALY 

GZXY 

- 

AL*PXY ♦ 

(PX*ALY 

♦ PY*ALX» 

A = 

r— 

“ o 

ZXY/F 




C = 

(GZ 

XX - GZYY 

) /F 


e = 

F2 

♦ C*C ♦ -4 

.* 

A* A ^ 

2.*(GZXX * 

IF ( 

e.G 

T.O.) GO 

TO 

30 



GZYY) 


B = C. 

IWSYM = •'*•• 

0=1. 

IF (PHI.LT.O.) D = 
0 = -F ♦ C*3QRT (81 
C = ((C ♦ B)/2.) + 
B = C - 3 - 2.*F 
0 = -A*A - 8*C 


- 1 . 


U = 

(A*GZX + 3*GZY>/ 

V = 

(-A*GZY ♦ C*GZX» 

0 = 

G/(T*CI 

ou = 

D*(A*TX 9*TY) 

OV = 

0*(-A*TY C*TX 

WCHK 

= H*H 

IF (H.LT.50 . ) HCHK = 

SF = 

U*U ♦ V*V 


= 900 


WINOOlCC 
HI NO 0200 
WINU0300 
WIN004QC 
HIN005CD 
W1N006CO 
HIN0070C 

wiNOoeco 

HING090G 

HINOIOOC 

WINOIICC 

WIN012QC 

WIN013CC 

WING140C 

WIN015CC 

WIN01600 

W1N017GC 

WIN018GC 

WIN019CC 

MIN020QO 

WIN02100 

HIN0220C 

HIN02300 

HIN02400 

HIN025QG 

MIN0260C 

HIN027GC 

WIN02e0C 

HIN02900 

HIN03000 

HIN031GC 

WIN032C0 

HIN03300 

WIN034C0 

HIN0350C 

HIN03600 

HIN037Q0 

WIN03800 

HINC.390C 

HIN040CC 

HIN0410G 

WIN042CC 

WIN043G0 

HIN0440C 

HIN04500 

MIN04600 

WIN0470Q 

MIN04800 

WIN049GC 

HlNOSaOC 

HIN051C0 

WIN0520C 

HIN033CC 

MING54C0 

HIN055GQ 

MIN056CC 




nliftiiKiii 




4 


4 




SPG = JG»UG \/G*yG 
IF (SP.GT.SPGl GO TO 60 
RETURN 
60 U = UG 
V = VG 
OU = GUG 
OV = OVG 

IF (SP.GT.WCHKI iWSYii = 

PETIJPN 

END 


MIN057CG 
WIN058CC 
WIN05GC0 
HING60CC 
UINC61CC 
MING6£CC 
HIN063CC 
NIN36i40Q 
MIN(3 65GC 
HINQ660C 




APPENDIX E 


SUMMARY OF PROGRAM CHARACTERISTICS 
(Program Operating Envi ronment) 


Hardware 

a. Computer - Univac 1108 (implemented at Georgia Tech on the CDC 

Cyber 74 System) 

b. Core Requirements - Approximately 45K on the Georgia Tech CDC. 

The CDC System routines require more core than the Univac rou- 
tine so there is no comparison between the system. It will be 
necessary to segment the program. See Section 5.1. 

c. Magnetic Tapes - All tapes are 7 tracks. Tapes required are: 

1 program tape (if the program is stored in UNIVAC COPOUT tape 
format), 1 "SCI DAT" data tape (see Section 4.2), 
from 1 to 4 4-D data tapes, depending on the number of 
months to be used under control of one run card (see 

Section 4.1 and Appendix B. 

d. Card Punch - not required unless optional card output is desired. 

e. Plotter - none required 

f. Drum or Disk - 2 temporary drum or disk files are required. No 

permanent drum or disk files are created by a program run unless 
optional non-print output is generated as a permanent disk or 
drum file. 

g. Other Hardware - none 
Software 

a. Operating System - UNIVAC EXEC 8 (Georgia Tech version is CDC NOS IJ) 

b. Language - FORTRAN IV (UNIVAC FORTRAN V) 

C. Type of Run - Batch 

d. Library Subroutines - NTRAN and FLD are UNIVAC subroutines. NTRAN 

read's 36 bit binary integer word records. FLD manipulates word 
bits and is used to break up 4-D data tape 36 bit words into two 
18 bit integer words. 

e. Program Overlays - (Optional) - see Section 5.1 
Program Specifications 

a. Common - See Sections 5.2 - 5.4 
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Program Specif i cations (cont'd.) 

Ij). Program Segments - See Sections 5.2 - 5.4 

c. Program Subroutines - See Section 5.1 

d. Listing - See Appendix D. 

e. Flow Charts - See Figures 5.1, 5.2, 5.3 

f. Sample Input - See Appendix C. 

g. Sample Output - See Appendix C. 

h. Diagnostic Messages See Section 4.5 
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